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An apparatus and method for the automatic inspection of a semiconductor wafer surface employs dark field illumi- 
nation (12) for illuminating a wafer surface (20) to detect the material edges thereon. The surface (20) is scanned (30, 52) 
and an edge analysis (14) is performed for automatically determining material edge boundaries from the reflected energy 
spatial distribution. The edge boundaries are compared (126) with a reference pattern (120) and further analysis (128) de- 
termines the location of boundary disagreements between the material boundaries and the reference pattern. A report 
(130) is generated which can include for example, reticle cleaning or replacement information, defect locations, and defect 
classification including 'killer defects'. 
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AUTOMATIC SEMICONDUCTOR SURFACE 
INSPECTION APPARATUS AND METHOD 

Background of the Invention 

The invention relates generally to the 
inspection of semiconductor wafers during manufacturer 
and in particular to a method and apparatus for the 
automatic inspection of semiconductor wafers during 
manufacture to determine the quality of the 
post-development photoresist and post-etch material 
structure. 

Very Large Scale Integration (VLSI) technology 
and the immense packing density of the products 
resulting therefrom have, in recent years, required 
significant time to perform. even small inspections of 
the semiconductor wafer as it is being processed. Such 
inspection typically requires a method for finding 
defects such as relatively small feature distortions and 
small size particulate contaminates. 

The defects to be identified during 
semiconductor manufacture generally come from either the 
photolithographic process employed during manufacture or 
the properties of the photoresist with which the 
photolithographic process interacts. For example, the 
mask through which the semiconductor is exposed can have 
acquired a defect during handling or the photoresist can 
develop in a non-uniform manner thereby causing a defect 
to occur oh the semiconductor surface. Other defects 
can. occur due to particulate contaminates such as dirt 
particles which "land" on the semiconductor wafer 
surface during processing. Contaminates may also result 
from a "dirty" developer photoresist. 
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These d fects and contaminates , very small 
features in a relatively large inspection area, are 
important because they identify or help to correct 
potential problems prior to the completion of the 
5 manufacturing process. This early identification 

enables individual wafers containing critical defects to 
be disposed of at a stage prior to the completion of the 
manufacturing process. In addition, such information 
can be employed for monitoring the various stages of the 
10 fabrication process and can significantly affect the 

yield of the production line and hence the cost of 
manufacture. For example, early detection of a defect 
may allow the wafer to be reworked and the defect 
corrected, 

15 Presently, inspection is performed either 

manually on selected semiconductor wafers or by machine. 
The manual or machine inspection processes often make 
decisions based only upon the relative feature 
differences between repeating patterns on the wafer 

20 surface. 

An object of the invention is therefore an 
automatic inspection method and apparatus for 
semiconductor wafers which reliably and automatically 
identify sub-micron defects on the surface of the 

25 semiconductor element during manufacture. Other objects 

of the invention are a method and apparatus for the 
automatic inspection of semiconductor surfaces which 
detect both distortions or anomolies in the geometry on 
the surface as well as the presence of particulate 

30 contaminates. A further object of the invention is a 

method and apparatus for the automatic inspection of 
wafer surfaces which operate in real time and which 
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reduce the manufacturing cost of the fabrication 
process. 

Summary of the Invention 

The invention relates to a method and 
apparatus for the automatic inspection of a 
semiconductor wafer surface. The apparatus features an 
illumination system for illuminating the wafer surface 
to be inspected. Preferably, the illumination system 
employs dark field illumination for highlighting the 
material edges of the surface. A scanning system is 
provided for forming in a storage array a representation 
of the spatial distribution of illumination energy 
reflected from the surface. This spatial distribution 
represents, when dark field illumination is employed, 
the material edges of the wafer which has been 
illuminated. In a preferred embodiment of the invention 
the scanning system moves the wafer for scanning the 
inspection area' while maintaining the optical 
illumination and receptor system stationary. 

An edge analysis circuit automatically 
analyzes the reflected energy spatial distribution, 
which is represented in the array, for determining edge 
boundaries occurring on the wafer surface. A comparison 
circuit then compares the located edge boundaries (found 
by the analysis circuit) with a reference pattern which 
describes the expected geometrical layout of the wafer 
surface. The comparison circuit then determines the 
location of boundary disagreements between the analysis 
circuit edge boundaries and the reference pattern 
description. The boundary disagreements are then 
output, for example visually shown on a display, whereby 
the equipment user can personally view the defects. 
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In other aspects, the invention features a 
circuit employing an edge threshold level to 
discriminate between potential edge boundaries of 
different intensities, that is, to discriminate signal 
5 from noise. Thresholding acts as an amplitude filter. 

In addition, the boundaries are preferably spatially 
filtered (as described hereinafter) to form a more 
continuous edge pattern* 

In the preferred embodiment, the apparatus 
10 further features a circuit for classifying the boundary 

disagreements and in particular for providing a class 
for "killer defects", that is, defects which prevent 
proper operation of a completed semiconductor circuit. 

The apparatus further features circuitry for 
15 automatically determining, for a wafer having a 

repeating reticle pattern thereon (that is, a pattern 
formed using a reticle' and which repeats on the wafer 
surface) , whether a defect in the reticle has occurred 
and therefore whether the reticle should be cleaned or 
20 replaced. Furthermore, the apparatus provides circuitry 

for automatically repositioning the wafer surface for 
visual inspection of the surface at a selected boundary. 
In addition, circuitry is preferably provided to enable 
a more tolerant thereshold to be applied to matching 
25 edge corners on the wafer surface to the reference 

pattern. 

In another aspect, the invention relates to a 
method for the automatic inspection of a semiconductor 
wafer surface. The method features the steps of 
30 illuminating the wafer surface to be inspected, 

preferably employing dark field illumination for 
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highlighting the edges of the surface. The method 
further featur s forming, in a storage array, a 
representation of the spatial distribution of 
illumination energy reflected from the surface; 
automatically analyzing the reflected energy spatial 
distribution for determining edge boundaries occurring 
on the wafer surface; comparing the edge boundaries 
found by the analysis step with a reference pattern 
description which describes the expected geometrical 
layout of the wafer surface; and then determining the 
location of boundary disagreements between the analysis 
edge boundaries and the reference pattern description. 
The boundary disagreements are then output, for example 
shown on a display, whereby the equipment user can view 
the defects. 

In other aspects, the method features locating 
potential edge. boundaries on the wafer using local 
differences in reflection values and then employing a 
threshold level to determine which edge boundaries are 
20 to be maintained and stored. The illustrated method 

also features spatially filtering the edge boundaries to 
form a more continuous edge pattern. 

In the preferred embodiment of the invention, 
the method features classifying the various boundary 

25 disagreements, and in particular provides for a class 

for "killer defects", that is, defects which prevent 
proper operation of the semiconductor circuit. The 
method further features, in the illustrated embodiment, 
automatically determining, for a wafer surface having a 

30 repeating reticle pattern thereon, whether a defect in 

the reticle has occurred and therefore whether the 
reticle should be cleaned or replaced. Furthermore, the 
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illustrated method provides for automatic repositioning 
the wafer surface for visual inspection at a selected 
boundary and for providing a more tolerant threshold to 
be applied to matching corner edges of the wafer to the 
5 reference pattern. 

Brief 'Description of the Drawings 

Other objects , features/ and advantages of the 
invention will appear from the following description 
taken together with the drawings in which: 

1q Figure 1 is a schematic representation of the 

automatic inspection apparatus according to a preferred 
embodiment of the invention; 

Figure 2 is a more detailed schematic of the 
image storage array according to a preferred embodiment 
of the invention; 

Figure 3 is a diagrammatic representation of 
the convolution functions employed in connection with a 
preferred embodiment of the invention; 

Figure 4 is a flow chart of the edge detection 
20 section according to a preferred embodiment of the 

invention; 

Figure 5 is a flow chart of the edge pruning 
section according to a preferred embodiment of the 
invention; 



25 



Figure 6 is a flow chart of the edge 
comparison and report section according to a preferred 
embodiment of the invention; 
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Figure 7 is a diagrammatic representation of a 
lessening of tolerance with respect to a corner edge 
detection; and 

Figure 8 is a schematic circuit diagram of the 
5 automatic detection apparatus according to a preferred 

embodiment of the invention. 
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Description of a Preferred Embodiment 
General Structure 

Referring to Figure 1, an automatic inspection 
apparatus 10 has an optical section 12, an image storage 
5 array 13/ an image processing and analysis section 14, 

and a display section 16. In general operation, a 
semiconductor wafer 18 having a surface 20 to be 
inspected is mounted in a stable jig structure 22. The 
wafer surface is illuminated by the optical section 12. 

10 In particular, the preferred embodiment employs a 360° 

dark field presentation to highlight the edge structure 
present on the semiconductor surface. (In many 
applications bright field illumination can also be 
employed.) Reflected light is directed through the 

15 central image forming optics 26 of a microscope 27 (for 

example a Leitz Ergolus), and is focused on a 
photosensitive sensor 28 which may be for example a 
Fairchild Model CCD-133 having a 1024 x 1 linear element 
arrangement. The wafer surface is moved, by a step and 

20 repeat mechanism 30 attached to jig 22, in a direction 

transverse to the length of the optical array. Thereby, 
the image of the wafer surface scans across the sensor 
28. The output of optical sensor 28 is stored in the 
storage array 13. 

25 The image processing and analysis circuitry 14 

accesses the stored data of array 13 and processes the 
data to locate edge boundaries on the semiconductor 
wafer surface. These edge boundaries may be photoresist 
edge conductors, or other material edges on the 

30 semiconductor surface. Circuitry 14 can be implemented 

in either hardware, software, or a combination of the 
two. When a software implemention is employed, 
illustrated circuitry 14 is implemented using a general 
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purpose digital computer, such as a Digital Equipment 
Corporation Model PDP-11/23 computer. 

The image processing and analysis section 14 
determines the locations of the edge boundaries on the 
wafer, smoothes and links those boundaries to form a 
more continuous edge pattern, and compares the edge 
boundary locations with a reference pattern of the 
design structure of the wafer surface. Any distortions 
from or disagreements with the expected pattern are 
flagged and become potential boundary disagreements. 
Each of the possible boundary disagreements is 
preferably classified and a disagreement list results 
therefrom. The group of boundary disagreements 
resulting from the analysis of a scanned frame by the 
image processing and analysis section is displayed, for 
example on a visual display. The visually presented 
information can describe the class and location of the 
defects or can automatically display the actual defects 
for visual inspection. 

Background 

As noted above, the present invention can be 
employed for monitoring a VLSI semiconductor 
fabrication. Typically, integrated circuits are 
fabricated by forming the circuit directly on a silicon 
crystal substrate. The substrate is typically a 
circular wafer, having a diameter of between three and 
six inches, and on each wafer will be fabricated several 
hundred complete circuits of the same type. Each 
complete circuit is on a die or chip which is generally 
rectangular in shape, several millimeters on a side. 
Following fabrication, the wafer is scribed to obtain 
the individual die for packaging or integration onto a 
more complex circuit. 
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Each of the die patterns is typically made by 
using either a mask or a reticle. The term "mask" is 
used to denote a patterned target which contains the 
patterns of all of the die on the wafer. The mask is 
5 generally a one-to-one image of the entire wafer and 

when a wafer is exposed through a mask, the entire wafer 
is effectively exposed at once. The term "reticle" is 
generally used to denote a patterned target which 
contains the pattern of at most a few die on the wafer. 

10 In the limit/ the reticle may contain the pattern for 

only one die on the wafer. When using a reticle, the 
entire wafer is exposed by a step and repeat process. 
That is, one part of the wafer is exposed; the wafer is 
then stepped in a known direction; and the exposure is 

15 then repeated. By continuing the process, the entire 

wafer is covered with a repeating pattern. Thus, when 
exposing with a reticle, and especially a single die 
reticle, a defect in the reticle affects every group of 
die on the wafer made with that reticle. Since the VLSI 

20 technology is moving the industry away from masks and 

toward reticles, the inspection of the wafer surface for 
reticle defects is extremely important. 

In the illustrated example, the semiconductor 
wafer 20 is assumed to have thereon a developed 

25 photoresist pattern. According to the invention, the 

photoresist pattern is being automatically inspected for 
defects such as geometric anomalies. Geometric 
anomalies occur, for example, as a result of errors or 
defects on the mask or reticle, particles which settle 

30 on or near the mask or reticle during exposure, 

particles which settle on the wafer during exposure, or 
development induced defects. In addition, the 
inspection process is designed to detect and locate 
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dimensional errors, which can occur when th photoresist 
pattern is geometrically correct but has certain 
critical dimensions which are out of specification, and 
particulate contaminates, that is, particles which fall 
5 onto a patterned photoresist. 

In accordance with the invention therefore, 
the developed photoresist is illuminated, with dark 
field illumination in this preferred embodiment of the 
invention, for highlighting the edge information 
10 available on the wafer surface, and a digital image of 

the area to be inspected is acquired. The digital image 
is processed to generate or derive a description of the 
area being inspected in terras of the edges in the area. 
The edge information is presumed to completely define 
15 the boundaries of the photoresist and/or particulate 

contaminates lying thereon. In the case of the 
photoresist, the edges can be closely spaced to define 
conductors or can be spaced much further apart to define 
active areas such as the base or emitter of a 
20 transistor. With respect to particulate contaminates, 

the edges are spaced apart somewhat and form, generally 
speaking, a relatively ragged closed loop. 

The Illumination System 

The illustrated illumination system, as noted 
above, is a reflective or incident dark field 
illumination system which directs light energy from a 
source 40 onto a beam splitter 42 and through a mirrored 
collar 44 of the microscope 27 and onto the wafer 
surface 18 at an oblique angle. The incident 
illumination is then reflected back into and is 
collected by the microscope optics 26. The illuminated 
wafer surface image is focused by the microscope 
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objective and subsequent optics 48 (if needed) onto the 
surface of the optical sensor 28. 

Because the wafer is opaque , it can only be 
imaged by light which is reflected from the surface. In 
dark field illumination, light is directed onto the 
object at a highly oblique angle through the mirrored 
collar 44 which surrounds the image forming lens system 
26 of the objective. The light energy from source 40 is 
directed toward beam splitter 46 in an annulus 
configuration toward the sample semiconductor wafer. An 
opaque blocking member 50 is employed to prevent energy 
from being directed into the microscope image forming 
optics 26. 

As is well known, the effect of using dark 
field illumination is to provide a highly specular 
reflection from an optically smooth, mirror-like surface 
such as is typical of the polished surface of an 
unpatterned silicon wafer. However with an optically 
rough surface, that is, one in which there are material 
discontinuities, the reflection is diffuse and in that 
case, reflective rays are scattered in all directions. 
Some of the reflected energy is captured by the 
microscope objective and the object appears bright at 
these areas. Thus, generally speaking, the unpatterned 
or optically smooth silicon substrate surface appears 
dark while the photoresist edges and particulate 
contaminates appear bright. (If bright field 
illumination had been employed, the silicon substrate 
would have appeared bright, while the photoresist edges 
would have appeared dark. Later image processing would 
proceed accordingly.) 
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Semiconductor Scanning 

As noted above, the dark field image is formed 
by the microscope optics 26 , and further focusing optics 
48 if needed, at the image plane of the electro-optical 
sensor or detector 28. The sensor converts the 
reflected illumination incident thereon into an 
electrical signal which is later scaled and quantized 
into a discrete set of levels. Each level represents a 
small interval of illumination power and in the 
illustrated invention the total illumination range has 
two hundred and fifty-six levels. Sensor 28 is 
preferably a solid state sensor and in the illustrated 
embodiments is a linear photoresistive array. An 
alternate sensor could be a television-type vidicon 
camera. 

The linear array approach thus employs a solid 
state image sensor having a plurality of distinguishable 
elements arranged in a rectilinear array. In the 
illustrated embodiment of the invention, the sensor 28 • 
provides 1,024 distinguishable elements arranged in a 
straight line linear array. The area of the wafer 
imaged upon the array (a scan line) is thus spatially 
quantized into the 1,024 picture elements (pixels). 
Each pixel in the illustrated embodiment corresponds to 
0.5 microns on the wafer surface. The illumination 
falls onto the array for a preset integration time 
during which light produced charge is collected in each 
of the distinguishable elements. At the end of the 
integration time, the charge accummulated at each 
element is read out and transduced into a voltage 
signal. The voltage is then scaled (or amplified) and 
quantized with the result being a spatial (1,024 
elements) and voltage (256 levels) quantization of the 
line of the image. 
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In order to scan and produce an entire 
two-dimensional image, relative movement must be 
provided between the array and the wafer* Either the 
array must be moved across the stationary image or the 
image must be moved across the stationary array (a 
combination of the two could also be employed). As 
noted above, in the illustrated embodiment, the image is 
moved across the array. Thus, a mechanical stage 52 
supporting the wafer 18 and jig 22 moves in a direction 
perpendicular to the array line under the control of a 
step and repeat mechanism. 

An alternate approach, which reduces the 
movement required to produce a two-dimensional image of 
a selected surface area, is to employ an area array 
solid state sensor such as the Fairchild Model CCD-221. 
This sensor has a 488 x 380 element array. 

No matter how the raw image is acquired, the 
resulting electrical data signals are stored in memory 
array 13 for later image processing. Referring to Fig. 
2, in the illustrated embodiment of the invention, the 
storage array 13 has first and second random access 
memory (RAM) elements 54 and 56, one of which is being 
filled by the sensor 28 of scanning system while the 
other memory is being processed by the image processing 
and analysis section 14. Switches 58 and 60, which 
control the flow of data into and from elements 54 and 
56, are preferably digital gating structures. 

Image Processing 

Referring now to the image processing and 
analysis section, the raw image data stored in memory 
array 13 represents the image as a two-dimensional 
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matrix of numbers. The "numbers 11 represent the image 
intensity across the spatial extent of the wafer surface 
being scanned. The image processing and analysis 
circuitry operates upon this raw image data to derive a 
description of the image in terms of potential edge 
boundaries {the edge finding procedure). Thereafter the 
edge boundary data {which identifies potential edge 
boundaries) is pruned or massaged to eliminate false 
boundaries and "clean-up" true boundaries (edge boundary 
pruning). Finally the edge boundaries are compared 
against a reference pattern, and defects or disagreement 
boundaries are recorded (edge boundary comparison). 

Edge Finding 

In the illustrated embodiment of the 
invention, the process of edge finding is implemented 
using convolution masks (or filters) operating along 
orthogonal axes. In the illustrated embodiment, these 
masks align with the horizontal and vertical axes with 
which most of the edges of the image will also align. 

Referring to Fig. 3, ideally, a photoresist or 
other material edge, when illuminated with dark field 
illumination, produces a bell-shaped light intensity 
distribution (intensity as a function of distance) in a 
direction perpendicular to the edge. Thus, if the edge 
runs parallel to one orthogonal axis r the light 
distribution profile will be exclusively directed 
parallel to the other orthogonal axis. 

An optically rough particle (such as a 
contaminant) will produce, in response to dark field 
illumination, a signal waveform (representing light 
intensity versus distance), having a rising and a 
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falling edge plus an intermediate region of relatively 
constant high intensity* To find and distinguish the 
material edges and the particle edges, two different 
convolution masks or patterns are employed. A peak 
5 finding convolution pattern w is designed to provide a 

zero crossing when the peak of an intensity distribution 
is crossed. A typical and preferred peak finding mask w 
has weighting factors w^ equal to -0.3, -0.1 r 0 r 0.1, 
0.3 (for i = -2, -1, 0, 1, and 2 f respectively), so that 
10 during the convolution process as defined by equation 1 

below, a zero crossing indicates the center of the peak. 

n 

li h i~k w k (1) 

k=-n 

15 where lj represents a new sequence of numbers created by 

convolving an original sequence of numbers (h^) with the 
weighting sequence w^ corresponding to the convolution 
mask. Thus, to find a horizontal edge, the convolution 
is performed upon a vertical line of data, and to find a 

20 vertical edge, the convolution is performed upon a 

horizontal line of data. For edges which are neither 
horizontal or vertical, a combination of the results of 
the horizontal and vertical peak finding convolution 
must be considered. It is important at this point to 

25 note, however, that the zero crossings resulting from 

the convolution process only provide the location of a 
potential edge point. Further processing (edge pruning) 
is required to determine whether the potential edge 
point is part of a material edge boundary. 

30 The second convolution mask W, a step finding 

function, provides a data set for finding the edge 
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boundaries of a particle contaminant. A similar 
convolution approach is employed; however, the 
convolution mask is modified to provide a zero crossing 
where the edge has the appearance of a step with 
.5 relatively wide pateaus extending from the step in both 

directions. Thus, the step finding convolution mask is 
designed to provide zero crossings at the center of an 
edge bounding a relatively large area or plateau. A 
typical step finding convolution mask, and the one 

10 employed in the illustrated embodiment, uses the 

weighting sequence Wj.: -.4, -.1, 1, -.1, -.4 (for i = 
-2, -1, 0, 1, and 2, respectively). The results of 
using these convolution masks with a photoresist edge 
structure and a particle contaminate edge structure are 

15 illustrated in Figure 3. 

Referring to Figure 4, which is a flow chart 
for that portion of the image processing and analysis 
section which relates to edge detection, the acquired 
image represented by block 60 is first spatially 

20 smoothed to help eliminate the noise "ripples" inherent 

in the digitization process of a noisy analog signal. 
The spatial filter provides low pass filtering which 
also helps eliminate invalid peaks due to system noise. 
The spatial filtering, represented by block 62, is 

25 applied along each of the orthogonal axes. A Gaussian 

function could be used, however it is much simpler to 
approximate the Gaussian by a weighting function having 
weights: 1/4, 1/2, 1/4. Thus, the value of each picture 
element intensity is replaced by an average equal to 1/4 

30 of the previous value, plus 1/4 of the succeeding value, 

plus 1/2 of the present value. The smoothed data 
resulting from the operation indicated by block 62 is 
preferably stored in the same memory as the acquired raw 
image data. 
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Next, assuming that the orthogonal axes are 
the vertical and horizontal axes, the smoothed image is 
convolved in both the horizontal and vertical directions 
with the peak finding and step finding convolution 
functions respectively. This is indicated at blocks 64, 
66, 68 , and 70. The reuslt of the respective 
convolution processes is then searched for possible zero 
crossings. This is indicated at blocks 72, 74, 76, and 
78. For each detected zero crossing, the strength of 
the crossing, is, for example, set equal to the peak 
amplitude of the other convolution function for that 
axis and within a small range of pixels of the zero * 
crossing. The strengths are stored, as indicated at 80, 
82, 84, and 86, preferably in the same storage array 
which originally stored the raw image data. 

At this point, the strengths resulting from 
the step finding convolution are made positive. This is 
indicated at 88 and 90. Also, the zero crossings for 
the peak finding convolution result are reviewed by 
eliminating invalid zero crossings, i.e., those zero 
crossings representative of noise. These are generally 
weak zero 'crossings which do not have associated with 
them strong related zero crossings. This is represented 
by blocks 92 and 94 of Figure 4. 

The edge detection process, by eliminating 
weak zero crossings of the peak finding convolution, 
discriminates between noise and potential photoresist 
edges. The strength measurement discriminator, in the 
illustrated embodiment, is a threshold value fixed prior 
to processing and in general depends upon the materials 
being employed. In other embodiments, the threshold 
value can be varied dynamically during processing to 
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take account of local variations in both noise and 
signal strength as a result of the semiconductor 
fabrication process. 

The strength measurement for a zero crossing 
is, in the illustrated embodiment, the maximum value of 
the step finding convolution output within plus or minus 
one picture element of where the peak finding 
convolution output goes through zero. Importantly* the 
strength of the step finding convolution will not be 
"confused" with noise since it is not a peak finding 
element but instead effectively locates inflection 
points, that is, the position at which the first 
derivative of the image signal passes through a minimum 
or maximum. 

The strengths are coded at 96, 98, 100, and 
102 and are stored in coded fashion in the same memory 
used to first acquire the raw image data. Coding can be 
accomplished by allocating to each word of the array 
(one word representing one pixel), preassigned bits 
representing the vertical and horizontal axes, and the 
peak finding or step finding strength result. 
Alternately, the word can be divided to indicate whether 
the strength stored there is strong or weak, is the 
result of a step or peak finding convolution, and is for 
the horizontal or vertical axis. 

During storage as indicated at block 104, the 
horizontal and vertical strengths for the peak finding 
convolutions, and the horizontal and vertical strengths 
for the step finding convolutions, are summed. This 
accommodates edge boundaries which are neither 
horizontal nor vertical but at an angle oblique thereto 
such as at a 45° angle. 
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The stored and coded zero crossing strengths 
are then analyzed to d tect valid edge boundaries and to 
discard invalid boundaries. This is referred to as the 
pruning process and is indicated at block 106 of Figure 
4. 

The Edge Boundary Pruning 

Referring to Fig. 5, once the coded strength 
of the convolution edge detection process has been 
stored (block 108), and prior to forming the edge 
boundaries , the data must be further analyzed to remove 
invalid edge points. There is also a need to 
discriminate between edges representing r for example, a 
photoresist edge (Block 110) and those which are part of 
a particle contaminant edge (Block 112). 

Thus, in the illustrated embodiment r if there 
is a peak finding convolution zero crossing within three 
picture elements of a step finding convolution zero 
crossing, then the step finding zero crossing is 
eliminated (Block 112). This occurs because it is 
assumed that the step finding zero crossing is 
erroneous, and it occurred in connection with and in the 
middle of a relatively wide photoresist area. 
Similarly, there might occur between two distant step 
finding convolution zero crossings, a peak finding 
convolution zero crossing. This can occur for example 
in the middle of a particle contaminant. In this case, 
the peak finding convolution zero crossing would be 
discarded (Block 110) although it is not generally 
necessary for later processing to do so. As a result of 
the pruning process therefore all that is left in the 
storage array 13, are edge boundaries because the 
discarded zero crossings will have been "zeroed". 
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The edge boundaries which remain however may 
or nay not be complete and continuous. Thus, even 
though most of an dge boundary may be found, there can 
further be a gap in the edge boundary which should be 
filled in. The gap may occur because the edge point had 
a small strength. According to the preferred embodiment 
of the invention, these apparent discontinuities are 
smoothed and filtered by filling in the gaps between 
edge boundary points so that the edge is continuous 
along its boundary. This is indicated at block 116 of 
Figure 5. 

Edge Boundary Comparison 

Referring to Figure 6, the "pruned" edge 
boundaries are available to a comparison circuit as 
indicated at block 118. Initially, the "pruned" edge 
boundaries are aligned with a reference pattern (block 
120). The reference pattern is provided from a 
reference data source such as a computer aided design 
(CAD) tape which is processed at 122 to provide data to 
the reference pattern, block 120. The alignment, 
indicated by block 124, is achieved primarily by "dead 
reckoning". That is, two relatively long edge 
boundaries, one parallel to one orthogonal axis and the 
other parallel to the other orthogonal axis, are 
selected in the reference pattern and the corresponding 
edge boundaries are "found" in the pruned edge boundary 
data memory. This process is practical only because the 
alignment of the wafer is known to within a few microns. 
Thus, the alignment search is carried out over a very 
small section of the memory and can be performed in a 
short time. The result of the alignment search is to 
provide horizontal and vertical offsets between the 
reference pattern and the stored data. Thereafter, as 
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indicated by block 126, edges in the reference block and 
the stored data are compared. Corresponding points, 
that is, points appearing in the same location in both 
patterns, are eliminated from the storage array 13 f and, 
in the illustrated embodiment, non-corresponding points, 
that is, points in the reference pattern which do not 
appear in the storage array are written into the storage 
array at their appropriate locations. Points in the 
storage array which do not have a corresponding point in 
the reference pattern are kept. As a result, when the 
matching indicated by block 126 is completed, there 
results in the storage array 13 a set of disagreement 
boundaries which define distortions and particle 
contaminants, if any, on the image surface. 

The disagreements are examined at block 128; 
and as a result, the disagreements or defects are 
classified. One particularly important class of defects 
or disagreements are those disagreements which 
materially affect proper operation of the semiconductor 
circuitry. These defects, if critical, are called 
"killer defects" and can be determined by defined areas 
of activity whose location can be provided by the 
.reference pattern 120. Thus, a particle contaminant at 
a location spaced apart from the operating circuitry of 
the semiconductor wafer does not normally affect circuit 
operation whereas a contaminant on the circuit itself 
may cause the circuit to fail. In either case, a report 
is compiled, in the illustrated embodiment at block 130, 
and is provided to the display device 16 of Figure 1. 

It is important to note, that a defect in one 
layer of a semiconductor structure can materially affect 
semiconductor circuit operation on another layer of the 
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structure. Therefore, the "defined areas of activity- 
provided by reference pattern 120 will relate not only 
to activity on the layer being formed, but also to the 
effect of a defect on a subsequently, or previously 
formed layer. In the illustrated embodiment of the 
invention, it is the CAD tape (or other reference 
source) which is processed at 122 to provide the 
multi-layer activity volumes in which a defect can have 
an adverse effect, and in particular where the defect is 
properly classified as a "killer defect". 

In determining the "alignment" at block 124, 
it has been tacitly assumed that the "pruned" edges 
align with the horizontal and vertical axes as defined 
by the analysis process. This may not be the case 
however. Nevertheless, since the resolution of the 
system tends to be on the order of one-tenth of a micron 
per pixel, it has been found satisfactory to provide a 
plus or minus one picture element deviation in 
determining the alignment. A similar alignment 
tolerance has also been provided for determining whether 
other lines of the reference pattern and the stored 
detected edge boundaries "correspond" to one another. 

A major concern which occurs during the 
comparison process of block 126 relates to the physical 
processes by which corners are formed during the 
semiconductor fabrication process. Due to the frequency 
response of the optical system employed in forming the 
photoresist corners, and further due to the effects of 
the chemical process by which the photoresist is layed 
down and developed, corners generally become rounded so 
that a truly "squared" edge does not occur. As a 
result, corners would almost always be "flagged" as a 
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defect absent any provision for loosening the tolerance 
of the system at the photoresist corner. As a result, 
referring to Figure 7, a loosening of th tolerance, or 
a window, is provided at the corner 132 defined by the 
reference pattern. The tolerance is illustrated by 
dashed lines 134, which allow the physical phenomena of 
a rounded corner represented by the dot-dash line 136 to 
be accommodated without being flagged * defect. Clearly 
other tolerance windows could be employed although the 
illustrated window is particularly easy to implement. 

The illustrated embodiment can also be 
employed to implement automatic focusing of the optical 
system, by testing for the "sharpness" of the image at 
the optical sensor 28. The automatic focusing mechanism 
adjusts the microscope optics to provide as sharp an 
image as possible at the image plane of sensor 28. This 
can be accomplished for example by mounting the 
microscope illumination system on a jig as indicated by 
dotted lines 140 (Fig. 1) and moving the jig up or down 
under the control of a drive mechanism 142. The drive 
mechanism 142 is controlled by the image processing and 
analysis section 14. 

As another feature, the step and repeat 
mechanism 30 can, under the control of the image 
processing and analysis section 14, reposition the 
semiconductor wafer to provide for a visual review of a 
defect on the semiconductor surface by the apparatus 
operator. The defect review can be accomplished using 
either the dark "field illumination employed in 
connection with edge detection or bright field 
illumination for visual inspection. 
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As noted abov , it is the tr nd in today's 
VSLI technology to use a repeating pattern on a 
semiconductor wafer surface. Th apparatus herein is 
arranged to review the disagreements at block 128 for 
repeating patterns to find repeating defects, if any. 
Repeating defects are then reported as a possible and 
likely reticle defect which must be cured, for example, 
by cleaning the reticle or replacing it with, a new 
element. This is accomplished at block 128 of Figure 6. 

The entire analysis system can be implemented 
in either hardware or software. Preferably, hardware is 
employed since the throughput and process time can be 
decreased by use of. special purpose hardware such as an 
array processor employing a pipeline processing 
15 approach. Nevertheless, a software implementation can' 

also be satisfactory. The flow charts of Figures 4,5, 
and 6 have been implemented in using a Digital Equipment 
Corporation PDP-11/23. The software programs, including 
interactive operating system programs, are attached 
20 hereto as Appendix A. While the programs themselves do 

not form part of the invention, they do provide one 
particular implementation of the concepts and structure 
of the invention. In addition, the invention can be 
implemented in hardware as described in detail 
25 hereinafter. 

Hardware Implementation 

As noted above, the automatic inspection 
system of the invention can also be implemented in 
hardware. Referring to Figure 8, the hardware 
30 embodiment employs a process control and sequence timing 

circuit 148 adapted to provide an orderly transition of 
the data from the microscope optics illustrated by block 
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150 to the eventual report generation and display. The 
process control and timing circuit can be a hardwired 
apparatus, as is well known in the art, adapted to fix 
the timing of a plurality of elements or can be a 
special or general purpose computer which provides 
* greater flexibility in changing the timing and control 
of the apparatus. 

The image from the illumination optics 150 is 
provided through the sensor element which forms part of 
an image acquisition section 152. The image acquisition 
provides the scanned image for storage in a dual memory 
storage array 154 corresponding to image storage array 
13. The scanning of the wafer is under the control of a 
wafer scan control circuit 156 as is well known in the 
art which is interactive with the process control and 
sequence timing circuit 148. 

The image, once stored, .is continually 
modified within the storage element so that minimal 
additional RAM storage is needed. Therefore, the raw 
data stored in memory 154 is filtered using a spatial 
filtering network 158. The spatial filtering network is 
adapted to sequentially read out the raw data from 
memory 154, and to effectively low pass filter it as 
described above using its digitial hardwired circuitry. 

After spatial filtering, the smoothed image 
data is convolved, by a convolution circuit 158 
operating under the control of the control and timing 
circuit 148, for each of the convolution functions 
described in connection with Figure 3 so that a peak 
finding and step finding data is read into memory 154. 
The convolution circuit 158 is preferably built around 
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an array processor employing pipelined processing. The 
convolved (or filtered) data, in this illustrated 
embodiment, is then "pruned" for noise and similar 
anomalies by an edge pruning circuit element 162. The 
edge pruning circuit removes invalid edge points using 
the criteria described above in connection with Fig. 5. 
After the stored data in element 154 is "pruned", an 
edge boundary comparison circuit 164, also operating 
under the control of the process control and timing 
circuit 148, compares the data stored in the image 
storage array 154 with the reference model stored in a 
reference memory circuit 166. The output of the 
comparison, as described in connection with the flow 
chart of Figure 6, is stored back in storage array 154. 
As a result, there is found in storage array 154 the 
disagreement boundaries determined by a comparison of 
the processed scanned data with the reference model 
storage information. This stored information is then 
analyzed by the classification network 168. This 
network, after reference to memory 166, maps the 
boundary disagreements into classes depending in part 
upon the effect of the defect upon semiconductor 
operation, and provides detailed information regarding 
the defect and its classification to a report generating 
circuit 170. The report generating circuit provides a 
suitable format for either a visual or printed display. 
A display element 172 can thus be either a visual 
monitor which is preferred or a printer, or both. With 
reference to the generation of the reference pattern 
stored in memory 166, a CAD model is stored in memory, 
for example a disk memory 174 and the memory 174 is read 
and processed by a controller 176 for providing to the 
memory 166 both a suitable definition of the edge 
boundaries and a definition of the active volumes of the 
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final semiconductor structure which can be severely and 
adversely affected by defects in or near those reference 
boundaries. 

The key to proper operation of the hardware is 
5 to provide sufficient timing and control via the process 

control and timing network 148 to enable the various 
elements to operate in a sequential manner and to use 
pipeline array processing as needed, such as, for 
example, the time consuming convolution process which 
X0 involves a series of time consuming multiplications. 

Additions, subtractions, deletions, and other 
modifications of this preferred embodiment of the 
invention will appear to those practiced in the art and 
are within the scope of the following claims. 
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: Install the VIDEO MONITOR task in lownemoryC up te l28kwords >. 
<Jitm dm3 : 
nc r mou do3 : 
;sit def 5,5 

;run SY : C5 , 53 INIAP/ par : c taskl 
;ttt rf«* 5.1 

;cun 5Y:C5,53STARTAP/par:ot**kl 

; c opv wif v is . t Jt t t tO : 

.if ins VIDEOT rem VIDBOT 

.if ins MATCHT r •» MATCHT 

.iftni DEFECT rem DEFECT 

.if ins CEDCET rem CEDCET 
if ins STACET rem STACET 

ins/p*r:CTASK2/TA.VIDECT SY:VFVIDEOT 
ins/pri :65/TA-KATCHT SY : VFMATCHT 

i ns /TA.OEFECT SY : WFDEFECT 

ins/par : CTASKl /TA-CEDCET SY:WFCEDC£T 
ins/TA. STACET sy : VFSTAGET 

run t5 , 1 ]wf 2000c 1 / task-mast «r 
rem VIDEOT 
ten MATCHT 
rim DEFECT 
rem CEDCET 
rem STACET 
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HASTER TASK: MASTERT.TSK 



• st 

OXt 

• at 
OXt 
«xt 

.«xt 

• X t 



MAINIT 



KACOHM 

PDPID 

KAVIK 

INSPLAN 

IPSDBM 

VDT 



Intertuk comnuni oat t on support 
lsi-11 as stab I or symbol dot 
Memory amagsmont support 

Tht Inspootlon Flan and Inspoctlen Status 
Th« Inspeetion Data Baso Management 
Miscellaneous terminal I/O rontinti 
Maxtor Xni I ial i tat ion 



mvstr < "aastor" , proas tr > 
^RESTART :» bass MAINXT 
SAVE MASTERT 



<* Global ivmt flag* for synchr onixa t i on . TASK holds the namos of tho tasks 

with whoa wo aro coaaunl eating in RAO SO . THESE MUST BE GLOBAL •> 
parameter TABLEN :« 12. 

rocord TASKTAB 

integsr TAS ( 2 ) 



TAPTR OFF 

(« Define executive directives to bo usod for tasking with Control *) 

ti let 'WAIT rsxeall bytowd < 2 , 41. > 

male* • CLEAR rsxeall byttwd ( 2 , 31. ) 

make 'READ rsxeall bytowd C 2 , 3?. > 

make * SET rsxeall byttwd ( 2 , 33 . ) 

make 'RCVDS rsxeall bytowd ( 4 . 75 . > 

aako 'SDRCJ rsxeall bytowd C 7 , 141. > 



ondr oee rd 



intogor SYKC1 ( TABLEN ) SYNC 2 < TABLEN ) TAPTR 
TASXTAB TASK < TABLEN S 



with TASK ( 0 ) 
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cilce 1 SDATI reicaU bytewd i 5 . 71. > 

aiki 'VTLOS re*call bytewd < 3 , 43. ) 

cake 1 KRKTS reieall bytewd ( 5 . 23. > 

<* execute a subroutine call, the arguments and subroutine name ere in BUFF. 

BUFF contains: TASK1 , TASK2 , 0 or -2 , eARCS . argl . aro2 . .. argn , subrout 
ine 

TASK l and 2 nake up the taskname of the caller *> 

dldni DOROUTINE 

integer BUFF ( 1 ) 

local 

integer ADR OFFST OFFST1 
OFFST :« i 
0FFST1 0 
if < BUFF < 2 ) > 

ptr ( BUFF < 4 ) ) 

OFF3T1 :« 1 

OFFST :« OFFST + . length < ptr ( BUFF ( 4 > ) ) / 2 ♦ 1 
end i f 

lookup ( ptr ( BUFF C BUFF < 3 > ♦ OFFST - OFFSTl ) > > ADR :» lastword 
DROP 

iter BUFF < 3 > - OFFSTl 

< BUFF < I «■ OFFST ) > i store args on stack 



loop 

ixec ( AOR > 
end 

<* Wait for a logical or of event flags *> 

define VAITLO 
local integer MASK 

MASK Off 

iter TAPTR 

setbit ( SYNC1 ( 1 ) - 33 , ptr < MASK ) ) 
loop 

VTLOS ( 2 , KASX ) 
en d 



define DELAY 

integer DTIM 
KRKTf ( 23. , DTIM • 4 , I , 0 > 
WAIT ( 23. > 

end 

<* Return the indei into the task table, called with the task name in RAD 5 0 *> 
define ITASCET Integer 
integer T < 1 ) 
5TASGET on 
iter TAB L EN 

with TASK < i > 
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if C T < 0 ) -« TAS < 0 ) and T < I ) mm TAS ( 1 > ) 

f TASGET i 
endif 
loop 
•ad 

<« Return the inderr into the tnk table of i ta.sk. task m&i it in ascii *) 
define TASCCT inttger 

integer T < 1 > 
local inttger R ( 2 ) 

TASCCT on 

clue < T ) 

if < ascrS < T . R ) ) 

TASCZT :- ITASCET C R > 
•ndif 
end 

<* Priaitive to find data to mothir task •> 
define SEND DATA 

integer INDEX , BUFF * < 1 ) 

CLEAR C SYNC 2 ( INDEX > > 

with TASK C INDEX ) 

SDATS ( TAS CO), TAS t 1 ) . EUFF . SYNCl ( INDEX > > :oerr 
end 

<* V«it foe another task *> 
define VTASK 



integer TSKNAM < 1 ) 

local 

integer INDEX 
dot term 

INDEX :« TASGET I TSKNAM > 

if ( INDEX mm -i ) print "Task not connected- 
else 

VAIT ( SYNC 2 ( INDEX ) > 
end if 
attera 
end 

<* Connect to a task. It seeas that RSX needs to have the terminal 
when the other task starts, we detach ourself and wait until the 
other task has initialised before we attach ourself again. Start 
op ijrnchr onlxat ion 

Call: CONNECT < "TSKNAM** SYNCl SYNC 2 ) 

TSKNAM an st he 4 characters, le. CONNECT C "DRV - 4 33 ,34 > »> 

define CONNECT 

integer TASKNAM ( 1 ) SYN1 SYN2 

local 

integer BUFF < 13 ) 
cine C TASKNAM > 

if ( ascr$.< TASKNAM . TASK < TAPTR ) ) ) 

print "Bad taskneae" 
else 
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dettera 

SYNC1 t TAPTR ) :• SYN1 SYNC 2 < TAPTR ) SYN2 

BUFF ( 0 ) SYNi j; BUFF < I ) SYN2 

CLEAR C SYNC1 < TAPTR ) ) 
CLEAR ( SYNC 2 ( TAPTR ) ) 
wi th TASK < TAPTR ) 

SDRCI I TAS C 0 > , TAS C I > « BUFF , bytewd < U. 2 > . 0 0 > ioarr 
VAIT ( SYNC2 ( TAPTR ) > 
increment TAPTR 
*t t arm 
•ndif 
and 

<» Send t DuUtr of data tp the task wt u« connacttd to BUFF ( 0 > must 
be 9 i>itir than C. Thie can b* used In th« raceivtr as a cod* for what 
data his boon stnt. The buffer can bo no longer than 13 word*. ■> 

difihft SEND 

integer T < I > BUFF < 1 > 
local Inttgtr Z FLAGS < 4 ) 
Z TASCET < T > 

ti i 2 mm -1 ) print "Task not conntcted" 
elsa 

READ ( FLAGS ) 

it ( getbit < SYNCS C Z > - 33. . ptr < FLAGS < 2 ) ) ) ) ; If they are done 

SEND DATA < Z , BUFF ) 
flit 



ittr 3 

DELAY < 100 ) 
READ C FLAGS ) 

it < got bit ( SYNC2 < Z > - 33 . , PTR < TLAGS I 2 ) ) > > 

SENDDATA ( Z , BUFF ) 

• sit 
atsa 

print str < T ) , n la hung" 
end if 
loop 
endit 
«ndif' 

end 

<» Call a subroutine that is in the task we are connected to. 
Call: CALL TASK ROUTINE ARGl , ARG2 , .. , ARCN 
whin N <* 13 - t • chers_in_rout ine / 2 ♦ 1 > - 1 - 1 

string length code targs 

this uses the code of 0 in the buffer *> 

dtfine CALL oommand 
integer ARG 

local 

integer BUFF < 13 ) T < 4 > Tl < * > OFFST OPFST1 
dat term 

mvser < BUFF * 13 > 

BUFF ( 1 ) endent - 3 
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OFFSTl off 

offst :« : 

•vitr ( ARC . T ) 
nxtazg 

mvitr" ( ARC , TX ) 
nx tar g 

if ( ARC ) t 

BUFF < 0 > ;« -2 

BUFF ( 1 ) :» cmdcnt - 2 

BVitr C ARC . ptr ( BUFF C 2 ) > ) 

0FFST1 :« length ( ARC > / 2 ♦ I 

OFFST :» OFFST * OFFST1 
endif 

mvstr ( Tl , ptr < BUFF < cmdcnt ♦ OFFST1 - 1 > > ) 
nxtarg 

iter cedent - 3 

BUFF ( I ♦ OFFST > :» ARC 

nxtarg 
loop 

SEND C T , BUFF > 
1 t 1 1 rm 
end 

<* Call a subroutine in another task and wait for it to finish . 

Equivalent to CALL "TASK* "SUBROUTINE n 0 ;; VTASK C "TASK" ) ») 
define CALLV command 
integer ARC 



local 

integer T < 3 ) 
mvstr ( ARC » T ) 
exec ( base CALL ) 
VTASX < T ) 
end 

<« Receive data from that talk we are conneotcd to and put it in a buffer 
Call: RECEIVE < BUFFER > Note: if these routines ate overlaid , BUFFER 
aust be global. The buffer mutt be at least 15 words. BUFFER contains: 

TASK! , TASK! , CODE , DATA where TASXI AMD X make the name of the 

task which it tending the message. CODE is 0 if we are calling a routine, 
-i if the other task is informing us of its rundown* and >0 if other data 
has been sent *> 

define RECEIVE 

integer BUFF ( 1 ) 

local integer Z 

VAITLO ; wait for flag from any task 

RCVOS < 0 , 0 , BUFF ) ioerr 
2 :» ITASCET < BUFF ) 

CLEAR < SYNCI < Z ) ) 

if C BUFF ( 2 ) « -I I ; rundown 

SET < SYNC2 ( 2 > ) ; acknowledge receipt 

if ( BUFF ( 3 ) • »£> > bye else return endif 

else 

if ( BUFF t 2 ) »-0 or BUFF ( 2 ) » -2 ) 
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DOROUTINE < BUFF > 
•ndif 

SET < SYNCS < Z 5 > 
• ndif 

end 

<* Inform the other task that we are stopping. 
Call: RUNDOWN ( arg ) 

arg « 0 it we want tht othtr task to bye as well. 

arg > 0 if wt want tht othtr task to stay alive or do something tlst 
btfore dying *> 

def tnt RUNDOWN 

integer T < 1 > ARC 

local 

integer BUFF < 15 ) INDEX 
INDEX TASCET t T ) 

If < INDEX »■ -1 ) print -Task not connected" 
else 

BUFF C 1 > OFF 

if i ARC ) BUFF < 1 ) :- ARC ENDIF 
BUFF ( 0 > ON 
SEND < T BUFF ) 
endif 
end 

<« s c t up communxcat ions with tht task that rtQutsttd us. 



rtctives the two Mags that the tasks win vst for synchron x xa t i on . 
and the name of the twJe with whom we are communicated. 
Any task that gets connected to must issue an INITREC command before 
proceeding. *> 

define INITREC 
local 

integer BUFF < 15 > 
dtttara 

RCVD$ (0.0, BUFF > ioerr 
with TASK < TAPTR > 
iter 2 

TAS ( I > :• BUFF < i > 
loop 

SYNC1 < TAFTR ) :• BUFF < 2 > 
SYNC 2 ( TAFTR ) BUFF < 3 ) 

SET < SYNC 2 ( TAPTR > > 
increnent TAFTR 
end 
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<* The REGION Definition Block • > 
rieord MEM_REC 

integer RCDB ( 0 ) 

Integer REGID 

integer RECSZ 

inttgtr RECNK < 2 ) 

integer PARNM ( 2 ) 

inttgtr REGST 

integer RECPR 



Pointer to Region Definition Block. 
REGION ID 

REGION SIZE < to be set ) 

REGION NAME IN RADIX30«<NO NAME) 

NAME OF THE PARTITION IN RADIXSOCto be set) 

STATUS : USE DEFAULTS C or to be set > 

NOT PROTECTED AT ALL 



<* The VINDOV Definition block *> 



ID 



integer VNDB < 
integer VNDAPR 



0 ) 



integer VNDADR 
integer WNDSZ 
integer VNDREG 
integer VNDOFF 
integer VKDL 
integer UNO ST 
integer VNDSR8 
endrecord 



Pointer to Window Definition Slock 

HIGH BYTE HAS THE APR , LOW BYTE IS THE VINDOV 

VIRTUAL BASE ADDRESS IN TASK'S VIRTUAL SPACE 
WINDOW SIZE IN 32VORD BLOCKS 
RECION ID 

OFSSET IN REGION IN 32 WORD BLOCKS 
LENGTH TO MAP IN 32VORO BLOCKS 
VINDOV STATUS WORD 
SEN/RECEIVE BUFFER ADDRESS 



MEM_REC M_IPSDB 
MEM_REC M_EDGE 



; Memory blocks for model access. 
; for creetion of EDGE IMAGE Region 



MEH_REC M_MODEL ; for creation of MODEL for MATCHING region 

MEM_REC M_MATCH ; for creation of IMAGE region for MATCHT and DEFECT. 

<* Define the nenory mngnment executives directives *> 

make * CRRG rsxcall bytewd C 2 , 35. > 

sake * DTRC rsxoall bytewd < 2 , 59 . ) 

sake 'CRAW rsxeall bytewd < 2 , 117. ) 

aake 'MAPV rsxcall bytewd ( 2 , 121. ) 
nakt 'UMAFV rsxcall bytewd t 2 , 123. > 

make 1 ELAV rsxeall bytewd ( 2 , 119. ) 



def ine CRECION 

integer REGNAK FARNAM REGSIZ 
RECSZ :« AECS1Z 
ASCR5 i REGNAM , RECNK ) drop 
ASCR5 C PARNAM , FARNM ) drop 

REGST :- 37K ; attach it and allow all access 
CRRG < RCDB ) ; create the region and att&ehe It 
ioerr 
end 
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define DREG I ON 
DTRC < RCDB ) , ; ioerr 

if ( RECST )- 40000K ) print "Window unmipid" endif 
end 



define cwndow , 

inttger APR , VNRID , WNSIZ , WNOFF 
WNDAPR urihift ( APR , 5 > ; APR in tht uppfr byte 



VNDSZ : 
WNDREG 



WNDOFF :» 
WNOL off 



WNOST 
CRAW < 
10ERR 
END 



VNSIZ i WST BE LESS THAN 4K 

. WNRID ; THE REGION'S ZD WHERE THE MAP? INC TAKES PLACE 

THIS IS KIND Or TR IKY NO. SO IT MUST BE FETCHED 
FROM THE REGION DEFINITION BLOCK < RCDB > 
VNOFF J WINDOW OFFSET IN THE REGION 

TAXE THE DEFAULT. CAN BE CHECXED FOR THE ACTUAL 
WINDOW SIZE AFTER THE CALL 
:k 202K ; HAP IT AND ALLOW WRITE ACCESS 

WNDE ) ; CREATE AND WAP THE WINDOW 



(* JNITRG ( RECNAM , PARNAM REGSIZ VADDR ) creates a named r«gion and an 
initial mapping of a «Jc window at th« begining of the region »> 

define INITRG 

integer HEGNAM PARNAME REGSIZ VADDR 



CREGION C RECNAM , PARNAME , REGSIZ ) 
CWNDOW < VADDR . REG ID . 2 0 OK , 0 ) 



; eraate a 32kwords dynamic region. 



; Great* a window at VADDR absolute address 
: of 41c words. Map it at th* offset 0 in the 
i region 



and 
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paraaetar MAX_FRAME£ :« 32 
p&rtattir MAX__SITES 2 
parameter MAX.PATTERNS 1 
paraaeter MA X__RETICI.ES 2 
paraaeter MAX.REVS :- 1 
paraaeter MAX_TES7_DIE 2 
ptrtmittr MAX_DIE_ROV :« 10 
paraaeter MAX_LAYERS :* 1 
parameter MAX_DEFECT :• 14 
paraaeter FALSE :« 0 
par aae ter TRUE : • -1 
paraaeter PRIMARY :» 0 
paraaeter CONFIRM :« 1 
paraaeter BRIGHT :m 0 
pir&nttir DARK : » 1 

ricord X_Y 

integer X 

Integer Y 
andracord 

record ID 

integer ROV 

intagar CLMN 
andracord 

record DEFECT 



intagar XCOM 

intagar YCOM 

intagar DELX 

Intagar DELY 
andracord 

racord DEFECT.BUFFER 

intagar l_DFCTS 

DEFECT DEFECTS < MAX_DEFECT > 
andracord 

record D__ROV 

intagar 1ST_D__# 

intagar LAST_D_t 
andr aeor d 

racord TJQTl 

X_Y F_SZ 

X_Y F_OLAF 
andracord 

racord F_TO_INSP 

intagar i_FS 

ID FRAMES < MAINFRAMES ) 

D£FECT_BUFFER F_DEFCTS ( MAX__FRANES ) 
andracord 



OMFI 



[4> Vrli'O 
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rtcord P_DTL 

cher P_DESCR ( 80 ) 

integer MXN_DEF_SZ 

integer MIN_P_SZ 

Inttger P_MAC 

integer t_SITES 

X_y S_ORG C MAX_SITES ) 

X_Y F_ORG 

F DTL r_DESCR 

tZtO^INSP INSP_FR < MAX_SITE5 ) 
tndrtcord 

record D_DTL 

X_Y DJOiH 

integer D_ST_HGT 

Integer D_AV_VDTH 

Integer f — PATTERNS 

p DTL D_PATTERNS ( MAX_FATTERNS ) 
<«~FATTERNS_TO_INSPECT DX £_INSPECTXON < MA X — PATTERNS 
endrtcord 

rieord R_T0_IN5P 

integer t_TO_INSP 

10 INSP_R ( HAX_RETICLES ) 
endrecord 

record R_DTL 



x_y R_oik 

integer R_ST_HGT 

intigir R_AV_VDTH 

D DTL RETXCLE_DXE 
<* DIE_TO_INSPECT RETICLE.INSPECTION «> 
endrtcord 

ttcord L_DTL 

chat t_REV_# ( 80 ) 

R_DTL l_RETXCLE 

R_TO_INSP L_IN£PECTION 
tndt«eord 

rtcord L_REVS 

eher L_DESCR < 80 > 

inttger LAYER_f 

integer t_REVS 

L_DTL DTL_LAYER_REV ( MAX_REVS ) 
endrtcord 

rtcord PLAN_HDR 

char PRGDUCT_NAME C BO ) 

tnttgtr VAFER_SZ 

reel DIE_X 

rtel DIE-V 

t Y FLAT_TO_0RIGIN 

ID REFERENCE.DIE 
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integer t_TEST_01E 

ID TESTED IE < MAX_TEST_DIE ) 

integer i_DIE_ROVS 

D_ROV VAFER.J1AF ( KXXJD I Z_RW 5 
endreeord 



record INSP_PLAN 

PLAN_HDR HEADER 

integer LAYERS 

l_REVS LAYERS ( HAX.LAYERS > 

endreeord 



; DEFECT_BUFFER CONF_J>EFECTS 
; DEFECT_BUFFER REPT_ DEFECTS 



record INSP.STATVS 

integer I -HODE 
Integer STACE_ERR 
integer STAGE_BUSY 
integtr LENSE_BUSY 
integer FOCUS_BUSY 
Integer ILLUK_BUSY 
integer REG_X 



Primary or eonfirm 



True 
True 
True 
True 
True 



Pais 
Fall 
Pels 
Fa Is 
Pels 



Integer REG_Y 

tD HOD_RET ; 

integer, MOD_SITE ; (1..13) 

integer WOD — FRAME ; 

integer KOD_ILLUM ; Bright t Deri: 

integer MOD_HAGNF ; (is .. 50 0«) 

integer KOD.LAYER 

integer HOD_PATTERN 

ID CUR_RET ; 

integer CUR_SITE ; (1..12) 

integer CUR_FRAME ; 

integer CUR_ILLUK ; Bright , Dark 

integer CUR_KAGNF ; <ts . . 500*> 

integer CUR_LAYER 

integer CVR_PATTERN 

ZD DES_RET ; 

integer DES_SITE ; CI.. IS) 

integer DES_FRAME ; 

Integer DES_ILLUW ; Bright , Dark 

integer DES — HACNF ; lis S00»> 

integer DES_LAYER 

integer DES_PATTERN 

X_Y DES_ DISPLAY ; only screen coordinates 
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ondr eco r d 

record !PSDB_REC 

INSP PLAN INSP_PLN 
INSP_STATUS INSP_DATA_BASE 

tndrtcord 



define STORE_IPSDB 



integer OUTCK 
OITTCH :« open < MAKE , 'RVCT > 

wn < OUTCH . PLAN , SIZE IPSDS_REC > DROP 
close ( OUTCK ) 
end 

define READ_IPSDB 



integer INCH 
INCH :- open < NAME , 'R > 

rds ( INCH , PLAN , SIZE IPSDB_HEC ) DROP 
olose C INCH > 



eddrees NAME PLAN 



Address NAME PLAN 



leeil 



end 
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<* mictUimous t«rmln4l I/O rontlnt* lot WASTE RT « 

APUSK RADIX 
OCTAL 



<« CET AN INTEGER 

GETNUM < PROMPT . DEFAULT > * > 

DEFINE GETNUM INTEGER 

INTEGER ARC1 ARC2 
CETNUM :» ARC 2 

PRINT STR C ARCl > . "C" . tl 0 , ARG2 . "3: « . «2 
IF ( RDLINE ) 

IF ( IL ITERAL C LBUF > > 
GETNUW :« ILVAL 

END IF 

END IF 
END 

<* Routines to s*t up a io/wilt from th* t«r»in*l *> 

INTEGER OIOV C 0 ) 

.WORD BYTEVD < 12. , 3 > 

.WORD 103 OK ; READ 

.WORD 0 

.WORD 24. ; EVENT FLAG 

.BLXV 3 



.WORD I 
.BLXV < 

DEFINE TYI INTEGER 
QIOV C 2 ) :m CICK 
QIOV < 4 ) PTR ( TY I > 
TYI OFF 

RSXDIR < QIOV ) 10 ERR 
END 



<* GETFNUM (REAL . PROMPT ) GET A REAL NUMBER *> 
DEFINE GETFNUM REAL 

REAL FARC 1 
INTEGER ARC 3 
GETFNUM FARG1 

PRINT STR t ARG3 ) , , #F 10 2 , FARGl , -J: • , tZ 

IF ( RDLINE > 

IF ( I LITERAL ( LBUF ) ) 

GETFNUM :» FLOAT ( ILVAL ) 

END IF 

IF C RL2TERAL < LBUF ) ) 
GETFNUM :« RLVAL 

END IF 

END IF 

END ») 
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<t GETSTR INC ( BUFFER , PROMPT > 
DEFINE GETSTRING 

INTEGER ARC1 ARC2 
VHILE ( not WORD ) 

PRINT STR < ARG2 > . «Z 
RDLINE , 
REPEAT 

NVSTR ( TBUF ARC I ) 
END 



<* Got a string with a dafaull 

CSTRINC ( BUFFER . PROMPT , DEFAULT_STR INC ) *> 
diimi CSTRINC 

in t agar BUFFER ( X ) PROMPT C 1 ) DEFAULT ( 1 > 
nvttr t DEFAULT , BUFFER ) 

print. ftr < PROMPT > , - C - , atr < DEFAULT ) , - 3 ■ , Is 

rdlina 

it ( word ) 

avitr ( tbuf . BUFFER ) 
andil 
md 

DEFINE YESNQ INTEGER 
INTEGER ARGl 
LOCAL INTEGER ANSVER 



PRINT STR ( ARC! > . " (Y/N): ." . $Z 
ANSVER : « TV I 
PRINT «A ANSWER 

YESNO :- < ANSWER and 137 ) mm ASCII Y 



INTEGER PAUSECHAR ; Buokat for road in chaxactar 



DEFINE VOT_IN 

addrasa PROMPT 

PRINT ftr < PROMPT > , •! 

PAUSECHAR TYI 

PRINT #A PAUSECHAR 

CR 
END 



APOP 



END 



PAUSE ROUTINES 
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<* Initialislon section of th« aastir *> 

<* Initialise region allocation *> 
<* and Connect the module tasks *> 

define KAINIT 
with M_EDGE 

CRECION < "EDGIHC" , "EDGIMR" . 2000K ) 
wi th K_WODEE 

CRECION < -MODELR" . "GEN " , 200K ) 
wi th M_MATCH 

CRECION < "NTCH1H" , "CEN - . 2000K ) 
with M_IPSDB 

INZTRG < "IPSD8R" . "CEN " , 200K , UOOOOk ) 



print °VtOEOT is being connected." 

CONNECT < "VIDEOT" 41. 42. > ; Initialise the Video Konitot Task VIDEOT 
print "MATCHT is being connected." 

CONNECT < "MATCHT" 35. 34. ) ; Initialise the Regis t rat i on andMatheing 
print "DEFECT is being connected." 

CONNECT ( -DEFECT" 37. 38. > ; Initialise the Defect Analysis Task 
print "CEDGET is being connected. 1 * 

CONNECT < -CEDGET- 39. 40. ) ; Initialise the Edge Detection Task 
print "STACET is be i ng c onnec t td . - 

CONNECT < -STACET" 33. 34. ) ; Initialite the SStage Positioning Task 



end 

define R UNDO VN ALL 
RUNDOWN < "VIDEOT* 4 0 > 
RUNDOWN ( "KATCHT" 0 ) 
RUNDOVN ( "DEFECT- 0 ) 
RUNDOWN i "CEDGET" 0 ) 
RUNDOVN < -STAGET" 0 ) 

end 

define BYE 

RUNDOVNALL 

bye 
end 
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<* VIDOET Command* *> 

define CCRABIrt 

integer ZO YO 
CALL "VIDEOT" "CRAB IK" 0 XO YO 
end 

define CVDRAV 

integer FNAME ZO YO 
CALL "VIDEOT" "VDRAV" FRAME XO YO 
•nd 

dtfim CDRAV 

integer ZO YO 
CALL "VIDEOT- "DRAV 0 XO YO 
•nd 

define CMDRAV 

integer XO YO 
CALL "VIDEOT" "MDRAV 0 XO YO 
• nd 

define CSAVE 

integer FNAME 
CALL "VIDEOT" *MSAVE" FNAME 
•nd 



def ine CVSAVE 

integer FNAME 
CALL **VI DEOT" "VSAVE" FNAME 
•nd 

define CFILLREC 

integer FEDCE 
CALL "VIDEOT" "FILLREG" TEDCE 
• nd 

define CRECFILL 

integer FEOCE 
CALL "VIDEOT" "REGFILL" FEDCE ' 
end 

define CVFMAP 

integer ZO YO SZ 
CALL "VIDEOT" "VFMAF" 0 XO YO SZ ; DI SPLAY_VAFER_MAF 
end 

define CDISPMOOEL 

Integer XO YO 
CALL "VIDEOT" **D ISFWODEL** 0 XO YO 
end 

define CBNORCTS 

tnttgtr XO YO 
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CALL "VIDEOT* "BNDRCTS" 0 10 Y0 
tnd 

d«fln« STP-VIDEOT ; disconntet "VIDEOT" task and *tt*chtd to tht ttrninal 

inttgtr TERM 

CALL "VIDEOT" "STOPCO" TERM 

VTASK ( "VIDEOT" ) 
tnd 

<• CEDCE Co&ntndf *> 

dtfint CEDCE 

CALL "CEDGET" "DOEOGE" 0 
tnd 

dtfint CSTARTAP 

CALL "CEDGET" "START_AP" 0 

VTASX < "CEDGET" > 
tnd 

dtfint STP-EDGET ; disconntct M ED GET" task and attachtd to tht ttrminal 

Inttgtr TERM 

CALL "EDGET" " STOPCO" TERW 

VTASK < "EDGET" 3 
tnd 



<* HATCH Commands «> 

dtfint STP-HATCHT ; disconntct "MATCHT" task and attaehtd to tht ttrminal 

inttgtr TERM 

CALL "MATCHT" "STOPCO" TERM 

VTASK < "MATCHT" ) 
tnd 

dtfint CRECISTER 

CALL "MATCHT" "REGISTER" 0 
tnd 

dtfint C MATCH 

CALL "MATCHT" "MATCH" 0 
tnd 

dtfint CGETIM 

CALL "MATCHT" "CETIH" 0 
tnd 

dtfine COPYIM 

CALL "MATCHT" "COPY IM" 0 
tnd 

dtfint CGETMODEL 

inttgtr FNAME 
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CALL M MATCHT rt "C£T_MODEL M FNAME 
tnd 



<» DEFECT Commands *> 

define STP-DEFECT ; disconnect "DEFECT" task and attached to th« terminal 

inttgtr TERM 

CALL "DEFECT- "ST0PCO- TERM 

VTASK < "DEFECT" > 
and 

define CDETECT 

CALL "DEFECT" "DETECT" 0 
and 



.<» STAGE Command* «> 

define STP-STAGET ; disconnect "STACET" taak and attached to the terminal 

integer TERM 

CALL "STAGET" "STOPCO" TERM 

VTASK < 11 STACET" ) 
end 

define CCALSTC ; calibrate the stage 



CALL "STACET- "CALSTC" 0 
VTASK ( "STACET" > 
end 

define CSTGINI ; calibrate the stage 

CALL "STACET" "STGINI" 0 

VTASK < " STACET" > 
end 

define CSTACEM ; stage move according to inspection plan 

CALL "STACET" -STAGErt" 0 
tnd 

define CILLSW ; DIB field switch 

CALL "STACET" "XLLSV/" 0 
and 

define CFOCUS ; aotgfocu* 

CALL "STAGET" "FOCUS" 0 
end 

define CERRCOR autofoeus 

CALL "STAGET" "ERRCORR" 0 

VTASK ( "STACET" ) 
end 



SUBSTITUTE SHEET 



WO 84/01212 



PCT/US82/01277 



-48- 



tlt ttA CO HANDS 



<* The diao nction *> 



integer DSXFL AC IMCNT ; fleg And imtge coontir (or EDGE 10*91 

; living on the disk 

chir IMBASE CO) 
. t«it "LNF" 

integer RDSKFLAC RIHCOT ; dig and image countir for BRIGHT ( RAW ) image 

; saving on the disk 

ehar RIMBASE ( 0 ) 
.teat "RNF" 

chu MDLBASE ( 0 ) 
. test M LNF " 

DSKFLAG on 
RDSKFLAC on 



integer 
YESSTACE off 



YESSTACE ; (fi& 



char ANSWER ( 20 ) 



del in* GET_LAYER 



DES.LAYER :« CETNUtt ( "Which mask level do you want to inspect 
gnore u«*r 

; DISPLAY_INSPECTION_DIE 
CUR_LAYER D£S_LAYER 
with LAYERS < CUR M LAYER ) 
with DTL_LAYER_REV < i_REVS - 1 ) 

print "Mask revision number is .... " , str < L_REV — t ) 
print "Mask layer description is 11 . str < L_DESCR ) 
print "View screen to see preoonf Igured inspection die" 
print " The blue reticle is the reference dxi M 

print " The rod reticles art the dieito inspect** 

end 



l ) 



<* STARTJEMO 

Initialises the Inspection Dita Bass by reading from disk the IFSOB.DAT 
and placing it in the common region IFSDBR. The Inspection Status is 
Initial titd. 
* > 

define STARTED EMO 
IMCNT off 
with M_IPSDB 

GSTRING < ANSWER , "Please input Product Name to be inspected" . "SEMI EAST" ) 

READ_IPSDB < M IPSDB.DAT" , WNOADR > 

ptr ( IPSDB_REC > :* WNDAOR 

with INSF_DATA_BASE 

with INSP_PLN 

with HEADER 
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print -Vifer stse is w . VAFER_SZ , » mo- 
print "Die width is " » DIE-X . " microns" 

print "Die height is " * D I E_Y , ■ microns" 

CET_LAYER 

CVFMAP C ?e. 383, 128. > 
tav.tr < ' LNP , IMBASE ) 
mvstr ( * RNF . RIMBA5E ) 
end 



define SHOV_ME 
ittr t_5ITES 

with INSF_FR ( i ) 
iter t_FS 

with F_DEFCTS ( i > 
ii < f_DFCTS ) 
DES_SITE ;« i 
D£S — FRAME :* i 
with DES_RET 

ROW :m INS?_R < 0 > 



CLMK ; 5 
CSTAGEM 
CFOCUS 
VDT_IN < 
ROV :» 
CLMN :i 
CSTAGEK 



INSP_R < 0 ) 



"Hit <retorn> 
INSP_R < 1 > 
INSP_R < 1 > 



ROV 
: CLMN 



to continue " > 
; ROV 
: CLMN 



CFOCUS 

print "Hit (return) to continue" 
VDT_IN < "Hit I to Abort inspection: " > 
if 1 PAUSECHAR -» ascii 1 > ««it endif 
endif 
loop 

if ( PAUSECHAR m. ascli ! > eilt «ndif 
loop 
end 



define OOFRIKTS 

och open ( 'REPORT. DAT » 'wn > 
print St 30 , "C 0 N T R E X ■ 
print tt 28 . "Vafervision 2000" 
print 
pr int 

print #T 30 , "Defect Report" 
iter 3 
print 
loop 

print "Product Neme : M , itr t PRODUCT_NAME ) 
print "Lay«r Description: " , str < L_DESCR ) 
print "Layer Revision Number: H t str < t_REV_# 
ittr 3 
pr int 
loop 



OMPI 
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print IT 23 , "Rtptating Btftcts" 

print 

print IT 10 , "Numbtr" , IT 30 , "X Location" i IT SO , "Y Location" 
print It 30 , *< Nicrom ) , tt 30 , "< Microm >" 
tad 

dtf int REPORT_DEMO 
local 

inttgcr DFCTCNT TEMP TEMPI 

roil CONVFACT 
DOPRINTS 
DFCTCNT :. 1 

CONVFACT :» .3 « 80.0 / FLOAT < CUR.MAGNF > ; .3 aierom/pii 9 80Z , adjuvt 
with F_DESCR 
ittr l_SXTES 

with S_ORG < i ) 
with INSP_.FR < i ) 
ittr l_FS 

with FRAMES < i ) 
with F_DEFCTS < i ) 
ittr l_DFCTS 
with DEFECTS ( i > 
TEMP :• fix < float C XCOM > * CONVFACT ) ♦ < F_SZ : X * ROW ) * X 
TEMPI :» tiz ( float C YCOM ) * CONVFACT ) ♦ < 7_SZ : Y • CLMN ) ♦ Y 
print IT S , DFCTCNT ( IT J9 , TEMP , iT «• , TEMPI 
incrtotnt DFCTCNT 
loop 



loop 
loop 

clo*t ( och ) 
*ch on 
tnd 



dtf int CETEDCES 
local 

char PNAME C 30 . ) 
CALL "VIDEOT- "ACOMSG" 0 
VTASK < -VIDEOT" > 
if < DSXFLAG ) 

print ftr < IMBASE ) . «p 60k , II 2 , CUR_FRAME . In 
tnccdt ( PNAME ) 
CF1LLREC ( PNAME > 
VTASK C "VIDEOT" ) 

tnd if 
tnd 



dtf int CETBFXMC 

inttgtr X0 Y0 

local 

ohar PNAME < 30. ) 
if < RDSXFLAC ) 

print ttr < R IMBASE ) . Ip 40k . ti 2 , CUR_FRAME , In 
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tnoodi < PNAME ) 

CVDRAU ( FNAME . 10 Y0 > 

WTASK < "VIDEOT" ) 

• ndif 
end 

defint 1STFOCUS 

" ( n °^?sI?LLUM !- DARK i MUST START VXTH BARK ILLUMINATION! ! ! I I 

• CILLSV ; switch Illumination 

tnd if 

it C YESSTAGE > ; *4& 

CSTACEH ; tht. stage to the very first position 

; Si* CrOCUS ; *»d focus on it 

els* 

CUR_ FRAME DE£_FRAME 

• ndif 

end . 

define DBF ; display bright field 

CALL M V I DEOT" "GBAR- 0 32 254. 0 25* 0 

WTASK ( "VIDEOT" ) 
if < not RDSKFLAC ) , . . 

OES ILLUM :» BRIGHT ; meanwhile change illumination to bright 

CILLSV WTASK < "STAGET" ) 

endif 



if ( RDSKFLAC ) 

GETBFIMG < 32 0 > 

#lS# CCRABIK < 32. 0 ) VTASK < "VIDEOT" ) 
•ndif 

DES__ILLUM :» DARK 

• nd 

define RTMOD 

; prifirrt tho current status in MOD. status lor inspection 
HOD_LAYER CUR — LAYER 
KOD_FATTERN : - CUR_PATTERN 
MOdIrET :« CUR_RET 
KOD_SITE :» CUR_SITE 
MOdIfRAME :» CUR_ FRAME 

tnd 

define CMLRCR ; get and display the mod*] *nd register 

local 

char PNAKE < 30. > „ m1 tt • t _ 

print itr C KDLBASE ) , lp <Ok , li 2 . MOD_FRAME . *MDL , tn 

encode ( PNAKE ) 

CALL "VIDEOT" "IPRMSG" 0 VTASK ( "VIDEOT" ) 
CCETMODEL < PNAME ) VTASK < "ttATCHT" > 

CD I5FM0DEL ( 332. 0 > VTASK ( "VIDEOT" ) 
; back to EDGE detection" 
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VTASX ( "CEDGET" ) ; Bmtof r eg i s t r* t i on , EDGE aait finish 

COPVIM VTASK ( • MATCKT > ; Copy EDCIMC to KTCHIK. 

CREGXSTEH 

VTASK C "MATCHT- ) 

• nd 

dtfmt KCHDEF ; matchin and defect analysis 

; COMPLETE DEFECTS 

CALL "VIDEOT" "MDLMSG" 0 
VTASK ( "VIDEOT" ) 
CMATCH 

VTASX ( "KATCHT- ) 

CALL "VIDEOT" "DFTHSC" 0 

VTASK ( "VIDEOT" ) 

CDETECT ; ; VTASK < "DEFECT" ) 

CSMDRCTS C 32. 0 ) ;; VTASK ( "VIDEOT" ) ; Display tht defects 

VDT_IN ( "Fltase cont«aplat« and •valuat«!H" ) 

•nd 

define CDNF I RM — INSPECT 
iter #_SITES 

with INSF_FR < i ) 
iter »_FS 

with F_OEFCTS ( 1 ) 
if < #_DFCTS ) 

DES_SITE :- J 



DES_FRAME :» I 
; if ( i ♦ J —0 > 

1STFOCUS 

S tlse 

VTASK < "STAGET" ) 
CALL "VIDEOT" "LKAC" 0 
VTASK C "VIDEOT" ) 
it ( DSXFLAG ) 

GETEDGES 

• 1st 

CGETIK ; get tht DF lmagt 

VTASK ( "MATCKT" ) 

C START AF ; start tht array processor 

CEDCE ; EDGE DETECTION 

VTASK ( "CEDGET" ) ; print - ; whila EDGE is working do th« following" 

•ndit 

DBF ; display BF lmagt 

RTKOD ; stt tht modal infor for rtil-t iai work 
CMLRGR ; gtt and display the modtl *nd rtgister 
MCHDEF ; match and d»ftct analysis 
; «ndit 
tndif 
loop 

if ( FAUSECHAR mm itcil ! > •sit tndif 
loop 
•nd 
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dofino PR I HARY — INSPECT 
ittr t_5!TES 
DES_SITE :. i 
with INSP_FR < DES_SITE ) 
prink "friDts to inspect » '* , »_F5 

ittr #_fs 

DES.FRAME :■ I , 
; it t i ♦ * »-0 ) 

1STFOCUS 
■ 1 St 

VTASX < "STAGET" > 
CALL -VIDEOT" "LMAC" 0 
VTASK < -VXDEOT M ) 
if ( OSXFLAC ) 

CETEDCES 

tlst 

CCETIH ; g*t tht OF iaagt 

VTASK < "MATCHT" ) 

CSTARTAP ; *tart tho array procoooor 

CEDCE ; EDGE DETECTION 

UTASK < "CEOGET" ) ; print ** $ whilt EDGE ii working do the following- 

endif 

DBF ; display BF imago 

RTMOD ; tot tht modol infor for rtal-tim* work 
CMLRCR ; got and display tho modal and register 
MCHDEF ; match and defact anaiyois 
; and if 



loop 
loop 
tnd 

integer NOFRAMES ; FOR TESTING PURPOSE ONLY 

intagcr NOSITES i t£& 

NO FRAMES :« 6 > S64 FOR TESTING PURPOSES ONLY 
NOSITES i 

define INSFECT_DENO 
with L_1NSPECTI0N 
with L — RETICLE 
with RETICtE_DXI 
DES_PATTERN :« 0 ; initialise tho pettarn 

with D_ PATTERNS < DES_PATTERN ) 
•.SITES :- NOSITES ; &*6 
Mar l_£ITES 

with INSP_FR < i > 

t^FS NO FRAMES ; U£ FOR TESTING PURPOSES ONLY 
iTtr t_FS 

with F_DEFCTS ( i ) 

• — DFCTS :- 0 i initialise number of dofocts 

loop 

loop . 
wi th DES.RET 

ROW INSP_R ( 0 ) : ROW 
CLMN tNSP_R (03: CLMN 
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I-HODE PRIMARY 

CALL "VIDEOT" "SHOVDIE" 0 

VTASK ( "VIDEOT" ) 

PR IMARY_ INSPECT 

it ( YESNO ( "Do you want to confirm tho fciati prociiftd so far?** ) ) 
ROV INSP_R < 1 ) : ROV 
*CLKN :« INSF_R ( 1 ) : CLMN 
I -MODE :- CONFIRM 
avitr ( *CLN . IMBASE > 
o»«tr < »RCL , R IMBASE ) 

CALL "VIDEOT" "CBAR- 0 0 288. 2S«. 90. 0 

VTASK ( "VIDEOT" ) 

CALL "VIDEOT- "SHOVDIE" 0 

VTASK C "VIDEOT" > 

CONFXRM_INSPECT 



del in« DEMO 

CALL "MATCHT" "VINDOV" 0 4 4 
STARTED EKO 
CVR_ILLUM :« BRIGHT 

if ( YESNO ( "Do you want to caiibratt tho itagt?" > ) 

CCALSTC 
•ndif 

CALL "VIDEOT" "VDRAV" "JOE" 352. 236. 
VTASK < "VIDEOT" ) 



INSPECTJEMO 
RE PORTED E MO 
S CALL "VIDEOT" "ENDHSG" 0 
print "End of Domo 

•nd 

DEFINE HAROLD_DEKO 
STARTED E MO 

CCETMODEL ( "LNFO 3 . MO L " > 
VTASK C "MATCHT" ) 
CALL "VIDEOT" "HAROLD_DEMO M 0 
VTASK ( "VIDEOT" ) 
END 

ondf ilm 



and if 
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VIDEOT.MG - 


• It 


MAKLEX 


•* t 


POP ID 


• St 


DH1SC 


• St 


VIDREC 


• St 


TLUT 


• JC t 


FXKON 


• St 


2 2BADDR 


• St 


VIDDISP 


• St 


FDMACO 


• St 


VIDCOtt 


• St 


(5, 1 3 INSPLAN 


avstr 


( "videot" , p 



«> 



piramttir CRNCL 
parimeter REDCL 
parameter BLUCL 



define LLUSETUP 
TP LANE :« 3 
CP LAME :- 3 



' 1 PLANE :« 232. 

DSCHAN ( TP LANE . GFLANE , IPLANE ) 
CLRMAP ( 0 ) 
iter 256. 

DSLLU ( GREEN 4 CRNCL 4 I . 255 , CREEN 4 CRNCL -4 
DSLLU < RED ♦ REDCL 4 I . 255 , RED + REDCL ♦ I , 
; DSLLU ( CREEN ♦ BLUCL + I , 128. • CREEN 4 BLUCL 
; DSLLU < RED ♦ BLUCL ♦ I , 255 , RED 4- BLUCL 4 I , 
DSLLU ( BLUE 4 BLUCL ♦ I # 255 , BLUE 4 BLUCL 4 X 
DSLLU ( CREEN 4 I , X . CREEN ♦I.I) 
DSLLU ( RED 4 X • X « RED 4 I . I ) 
DSLLU < BLUE ♦ 1 . I , BLUE 4 I , I > 
loop < 4. > 
• nd 



I , 255 > 
2SS ) 

4 I , 128. 

255 ) 
. 255 ) 



define INITD 
DSOPN ( 8 ) 
DSPLD 

DSCLf < 255. 
LLUSETUP 
end 



drop 
) DSCXY ( 



0 0 > 



fivi VIDEO 
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TH E LEXtDATA 3400 LIBRARY ROUTINES •> 



flAJvE 


UsUrft 




• u 


nAivb 


Daw Ls 


A9AI vfil* 


o * 


HAKE 






o 


KAKE 


1 D5MRC 


d cvrifur 


a 6 


KAKE 


DbZDn 


Kbit UML 




KAKE 


• DSMOV 


no it Ufiu 


7 * 


KAKE 


i ne f f it 
D5LLU 


R5IFUNC 


7 * 


KAKE 


t net « jt 




7* 


KAKE 


' DSLRD 


dct n ivy/* 


10 0 


KAKE 


' DSCHAN 


RSXFUNC 


102 


KAKE 


•DSVEC 


RSXFUMC 


104 


HAKE 


1 DSCLR 


RSXFUNC 


106 


KAKE 


•DSCIR 


RSXFUNC 


no 


KAKE 


'DSPNT 


RSXFUNC 


112 


KAKE 


• DSL IK 


RSXFUNC 


114 


KAKE 


'DSPUT 


RSXFUNC 


1 16 


KAKE 


•DSCET 


RSXFUNC 


120 


KAKE 


•dsout 


RSXFUNC 


122 


KAKE 


•DSIVT 


RSXFUNC 


124 


KAKE 


* DSRNV 


RSXFUNC 


126 


KAKE 


•DSRHR 


RSXFUNC 


130 


KAKE 


'DSSAO 


RSXFUNC 


132 


HAKE 


1 DSTXT 


RSXFUNC 


134 


KAKE 


•DSCSt 


RSXFUNC 


136 



KAKE 
KAKE 
HAKE 
KAKE 
HAKE 
KAKE 
KAKE 
KAKE 



•D5CER 
•DSCLO 
•DSCXY 
* DSBL IN 
•DSBLOC 
•DSBLR 
• DSCXY 
•DSPLD 



RSXFUNC 140 

RSXFUNC 142 

RSXFUNC 144 

RSXFUNC 146 

RSXFUNC 150 

RSXFUNC 1S2 

RSXFUNC 154 

RSXFUNC 156 



AFOP 



IRS 
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Ml*coll»n«oui routines for DEMO •> 



APUSH RADIX 
OCTAL 



DEFINE LIMIT INTEGER 

INTEGER ARC! ARG2 ARG3 
LIMIT MAX < ARC2 , MIN ( ARCI . ARC 3 ) ) 
END 

DEFINE CETNUM INTEGER 

INTEGER ARC 1 ARC2 
CETNUM ARC2 

PRINT STR C ARC 1 ) , "t" , «I 0 . ARC2 , M J: " * «Z 
If ( RDLINE ) 

IF ( I LITERAL ( LBUF > > 



END IF 

END I r 
END 

DEFINE BEEP 

PRINT #A 7 , « 
END 

i« Routinn to s*t up a io/wxit from tht t«rmin*l *) 



INTEGER 0IOW < 0 ) 

.WORD BYTEVD < 12. , 3 > 

.VORD 1030K ; READ 

.WORD 0 



.BLXW 3 
.WORD t 
. BLKW 4 

DEFINE TYI IKTECER 
GlOW < 2 > CICH 
QIOU < 6 ) :« PTR < TYI ) 

TYI orF 

RSXD1R ( QIOV J IOERR 
END 

DEFINE ERVNA 

PRINT "ERROR: WRONG NUMBER OF ARGUMENTS" 

END 



<« CETFNUM ( REAL , PROMPT > Common t «d out for RSX-UM. no floating point 
DEFINE CETFNUM REAL 

REAL FARC1 

INTEGER ARC 3 



CETNUM im ILVAL 



.WORD 24. 



EVENT FLAC 
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CETFNUM FARC! 

PRINT STR ( ARC 3 > , M C M . #F i 2 . FARC1 , "3: - . 12 
IF < RDLINE > 

IF ( ILITERAL < LBUF ) } 

CETFNUM :m FLOAT < ILVAL ) 

END IF 

IF ( KL ITERAL ( LBUF ) ) 
CETFNUM RLVAL 1 

END IF 

END IF 

END *) 



<» CETSTRINC ( BUFFER . PROMPT ) «> 
DEFINE CETSTRINC 

INTEGER ARCt ARC 2 
VKILE C not WORD ) 

PRINT STR ( ARC 2 ) . #2 
RDLINE 
REPEAT 

KV5TR t TBUF ARC I ) 
END 



DEFINE YESNO INTEGER 



INTEGER ARCl 
LOCAL INTEGER ANSWER 

PRINT STR C ARG1 J , - (Y/N) : w . tZ 
ANSWER :m TYI 
PRINT «A ANSWER 

YESNO :« ( ANSWER and 137 3 mm ASCII Y 



END 



<* KCONCAT - Concatenates ths strings tp«cifi«d as arguments 

HCONCAT d*« t-str ing< 1st roarct string) , fourct-i t r lag , .... , arg-count 

*> 

DEFINE KCONCAT COMHAND 
INTEGER STR I 
ITER CMDCNT - 1 

PRINT STR ( STRI ) , #N 
NXTARG 

LOOP 

NXTARC ( — < CKDCNT - 1 > > 
ENCODE < STRI ) 
END 



<* IFCR pirforaii a CR it not At the bsglning of th« Unt «) 

DEFINE IFCR 
IF { HCOLUMN > 



SUBSTITUTE shfft 



45a'atio5!> 
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PRINT 

END IF 
END 

<* Allows for recursion in MAC1C/L. Calling RECURSE ( Argl . Arg2 , ... > 

calls the current subroutine with optional Input arguments. *> 
DEFINE RECOURSE IMMFUNC 

CCVD ( . + 1 > 
END 

. MAC 

<* drop 2 things off ths stack »> 
ENTRY 2DROF 

ADD t 2 . KSP 

NEXT 

<* divide by 2. dont by shifting. 21 < -5 ) results in -3 , not -2 as -5 i 2 

in MACIC *) 
ENTRY 2/ INTEGER 

ASH <MSP> 
NEXT 

<* exchange 2 variables, aspects pointtrs as arguments. 

call: achg ( ptr < « > , ptr < y > ) *> 
ENTRY XCHC 



KOV 9 0 (KSP) . RO 
MOV e 2 (KSP) . Rl 
KOV Rl , 9 <MSP>+ 
KOV RO , 8 (MSP ) ♦ 
NEXT 



Mov* a given nombir of bytes into the same number of words. 
KVBYVD ( BYTE_ARRAY , BYTE_OFrSET , VORD_ ARRAY , »_8YTES ) 



as . 



KVBYVD 








BOV 


(tnsp> + 


, rO 


i Get number of bytes to transfer. 


mov 


(Dip) + 


, rl 


; Gtt polnttr to word array. 


so V 


(BSp>+ 


, r2 


C«t pointsr to byte array 


add 


(Dip ) + 


, r2 


; plus ths offset . 


no vb 


(r2>* * 


<r 1 >♦ i 


Transfer byte. Increment pointers 


clrb 


(rl >♦ 




; Clear high order byte of word. 


dec 


rfl 




Decrement the count. 


bgt 


Of 




Branch it count not 0. 


ntit 









(* Kovi a given nonbir of words into ths same number of bytts. 

KVBYVD ( BYTE_ARRAY , BYTE_OFFSET , VORD_ARRAY , »_VORDS ) *> 
entry MWDBY 

bov <m»p)+ , rO ; Cst number of bytes to transfer, 

mov (msp>* , rl ; Gtt pointer to word array. 
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mo v 


(asp ) ♦ 


. z2 


s 


Cot pointer to byt* irny 


tdd 


(asp )♦ 




t 


plui th« off sit. 


mo vb 


Crl>* . 


<r2>* 


! 


Tnnsfir word. Ineromont pointers 


inc 


rl 




J 


Increment word potntor on* nort. 


doc 


rO 




♦ 


Dtcrinont th« count. 


bet 


11 




S 


Bunch if count not 0. 


next 











.END 



INTEGER PAUSECHAR 
INTEGER SLOW 
INTEGER FAST 



Baelrot for reed in cnenetor 
Flag set it slow mod* dtsirod 
Flag sot it feet mods difirod 



PAUSE ROUTINES *> 



DEFINE PAUSE 
IF < FAST > RETURN END IF 
IFCR 

PRINT -TYPE ANY KEY TO CONTINUE" 
PAUSECHAR TYI 
CR 
END 



DEFINE IFPAUSE 



IF ( SLOW ) PAUSE END IF 
END 

APOP 




II V/ 
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<» Tht REGION Definition Block »> 
rtcord MEM_ REC 

inttgtr RCDB < 0 > 

inttgtr REC ID 

inttgtr RECSZ 

Inttgtr RECNM ( 2 > 

inttgtr FARNM < 2 > 

Inttgtr RECST 

inttgtr REGFR 



Pointtr to Rtgion Dtfinition Bloefc. 
RECION ID 

RECION SIZE < to bt stt ) 

REGION NAME IN RADIX3 0»<NO NAME) 

NAME OF THE PARTITION IN RADIX50(to bt ftt) 

STATUS : USE DEFAULTS ( or to bt stt ) 

NOT PROTECTED AT ALL 



<* Tht WINDOW Definition block 
inttgtr VNDB < 0 ) 
inttgtr WNDAPR 



ID 



Inttgtr VNDADR 

inttgtr WNDSZ 

inttgtr WNDREC 

inttgtr WNDOFF 

inttgtr VNDL 

inttgtr WNDST 

inttgtr WNDSRB 



Pointtr to Window Definition Block 
HIGH BYTE HAS THE APR, LOW BYTE IS THE WINDOW 

VIRTUAL BASE ADDRESS IN TASK'S VIRTUAL SPACE 
WINDOW SIZE IN 32WORD BLOCKS 
RECION ID 

OFSSET IN RECION IN 32 WORD BLOCKS 
LENGTH TO MAP IN 3 2WORD BLOCXS 
WINDOW STATUS WORD 
SEN/RECEIVE BUFFER ADDRESS 



tndr tcord 



KEJT-REC M_MODEL 



Memory blocks for modtl lectis. 



MEK_REC M_EDGE ; Mtmory blocks for tdgt iaagt teeifs. 



<« Dtfint tht mtmory mngnmtnt titcutivts dirtctivts »> 

aafct • ATRC rsxca.ll byttwd ( 2 , S?. > 

aafct ' DTRG csxcall byttwd ( 2 5*. > 

aakt 'CRAW isiei I 1 byttwd ( 2 , 117. ) 

aaka ' MAFW rsictll byttwd ( 2 . 121. > 
aaka 'UMAPW rsxcail byttwd ( 2 , 123. ) 

aaka * EL AW nxcall byttwd < 2 , II?. ) 



dtfint ARECION 

Inttgtr RECNAM 
ASCR5 ( RECNAM , RECNM > drop 

REC ST :■ 57K ; attach it and allow all acctst 
ATRC < RCDB ) ; ortatt tht rtgion and attacht it 
iotrr 
tnd 



dtfint DREG ION 
DTRG < RCDB > iotrr 

i if ( RECST >» 40000K ) print "Window unaaptd" tndif 
tnd 



OMPI 



SUBSTITUTE SMZET 



WIPO 
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define cwndow 

inttflir APR 

WNDAPR :» urshift < 
WNDSZ WNSIZ 
VNOREC :• WNR ID 



WNDOFF 
WNDL off 



VNOFF 



WNDST 
CRAW C 
IOERR 
END 



- 202K 
VNDB ) 



WNRID . WNSIZ , VKOFF 
APR , 3 ) ; APR In tht upper byte 
; MUST BE LESS THAN 4K 

; THE REGION'S ID WHERE THE MAPPINC TAKES PLACE 
; THIS IS KIND OF TRIKY NO. SO IT MUST BE FETCHED 
; FROM THE REGION DEFINITION BLOCK ( RCDB ) 
; WINDOW OFFSET IN THE REGION 

; TAKE THE DEFAULT. CAN BE CHECKED FOR THE ACTUAL 
; WINDOW SIZE AFTER THE CALL 
; MAP IT AND ALLOW WRITE ACCESS 
CREATE AND MAP THE WINDOW 



<* This part concerns with random aceiss of a 32fcword chunk of n«mory ( reg t on) . 
Th« region is "looked At" through a 4kword window which starts it 140000k 
absolute address in the Magic task. 

The region can be viewed as 236 s 236 area where each byte corresponds 
to a (X,V) set of coordinates. 

The main aecass roatnes will be: 

- MRDP1X ( X , Y ) for reeding * value 

- MWRPIX < X , Y , VAL ) for writing a value 

Additional routine are provided for setting up the windowing sqhene 



and filling the region with date from the disk «> 

integer YLOW , YHICH ; the Y coordinates cor responding to the first end 

; last raster in the current window relative to 
; whole region. 

<* ATTRG ( REGNAM , VADDR ) attaehess a named region and an 
initial capping of a 4k window at the begining of the region *> 

define ATTRG 

integer REGNAM VADDR 
ARECION < REGNAM ) ; create a 32kwords dynamic region. 

CWNDOW ( VADDR , REG ID , 2 0 OK , 0 > 

; create a window at 160000 absolute address 
; of 4k words. Map it at the offset 0 in the 
; region 

YLOW :■ 0 ; inlt to the very first raster 

YHIGK :« 31. ; inlt to 32-nd raster 
end 



.mac 

<* P1XVAL :■ MGPIX ( X , YREL ) gives the value of the pisel given the 

relative coodinate in the window and the X. *> 

entry KGPIX integer 

dot (acp)t , rl ; Y-eoo 



CMPI 
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mov <aep)+ # rO i X-coo 

4dd rj , rO ; reletivo eddreee from btgilnlg o£ the window 

aov Mptr ( MEM_REC ) , r2 ; Add ictivt record biee iddrosi 
idd So VNDAOR Cr2) , rO 
clr rl 

bisb. <r0> . rl ; flet tht piael trelue 
aov rl . -<aip> ; rttorti arguaont 
next 



<* MPPIX C X , YREL , PIXVAL ) givei the valve of tho pi*el givon tho 
relative eoodineti in tho window *nd tho X. *> 

•ntry MPPIX 

mov <a«p>«- . rZ i vilut to be written 
mow (m«p)+ . rl ; Y-coo 
mov (»fp>4 , rO ; X-coo 
iwib r 1 ; Y * 236. 

idd rl , rO ; rolativo tddrets from btgiinig of the window 

mov 9 t ptr ( MEM_REC > , r3 i Add active rtcord base oddrees 

idd 9o VNDADR <r3> ■ rO 

movb r2 . <rO) ; return argument 

nest 



<* YREL REMAP {-Y-COO ) giv«« tho ralativ* coordinator in the region 
corresponding to Y-COO. It remap* the window it roquired. *> 

<• 

difine REMAP intoger 
Integer YCOO 
If < not elm ( YCOO , YLOV , YHICM ) > 
YLOV iehlft ( urihlft ( YCOO 
YKICH :- YLOV ♦ 3X. 

vnooff ylov * 4 



indif 

REMAP 
end 



3 > , 5 > ; YCOO / 32.*32. 

32 restore per window 

OFFSE in region if YLOV*25A/44 



HAPV < VNOB > 
YCOO - YLOV 



remap the window in tht seat region 
output YREL 



entry REMAP integer 



9$ 



aov 

cap 
bgt 
cap 
bg • 
bic 
mov 
aov 



<a*p> i rO 
rO « 9 • ptr 
9i 



rO 
6f 

• 37k 

rO . a 



8 t ptr < 



rO 



, rO 
• ptr 
t ptr 



THIGH ) 
YLOV > 



YLOV ) 
YHICH : 



Get desired line number. 
If it is > YHICH 

CRoaap). 
it >- YLOV 
(No r*m*p> 



go to 91 
Else If it 

go to 8% 
Term YLOV . 
Store YLOV 
Storo YLOV 



in YLOV. 

+ 3i . in YHICH. 



own 



SUBSTITUTE SMEET 
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SO V 
19T 

tie 
ntit 




**1 



•31. , t • ptr ( YHICH > 

rO 

rO 

• • ptr < MEM_REC > , rl 
rO , lo VNDOFF (rl) ; 
rl , -<msp> i 

• to VNDAPR . (aip) ; 

• bise MAPV , rS ; 
pe , i«q 

• 177740k , <msp> ; 



♦ VNDAPR offset. (UNOB pointer). 
Load bast addrtss of MAPV routint. 
Eaecute tht MAPV (Remap). 
Return lint number - YLOV. 



Multiply YLOV by 4. 



; Active MEM_REC addrass -> rl . 
Plaea YLOV * 4 in currant VNDOFF . 
Push aetive address 



. and 



<■ PIXVAL :« MRDPIX C XCOO . YCOO ) reads a pixel it XCOO, YCOO *> 

dafine MRDPIX Intager 

integtr XCOO YCOQ 
HRDPIX :« MGPIX„< XCOO , REMAP ( YCOO ) > 
and 



<* MVRPIX i XCOO , YCOO , PIXVAL ) writes a pisel «t XCOO. YCOO *> 

define KVRPXX 

integer XCOO YCOO PIXVAL 



•KPPIX C XCOO , REMAP < YCOO > , PIXVAL > 
end 



<« ******** n*************************** **************** ********* 
This part daala with filling in the region with data Iron the disk •> 

rtcord VND_REC 

integer VNDARR ( 0 ) ; the window it looked at as an array 
andr eco rd 

<• FILLREC i IMFILE ) fills the region with the data provided from the 
image file IMF 1 LE . 

Xt assumes previous call to INITRC; i.e. region and fist window mapped *> 

defina FILLREC 

integer XMFILE 

looal 

integer 1 VNDARR 1MCH 
char PNAME ( 30 > 
with M.EOGE 

ATTRC ( "EDCIMG" . 140000k ) 

ptr < VND_REC ) :« VNDADR ; set begining of the array at window virtual 

; address 

mvstr C -dm3:C3 i n w . PNAME ) 
concat ( PNAME . IMF ILE ) 
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concat < PNAME . ' . IM > 
IMCH OPEN < PNAME , *R > 
REMAP < 0 > 
itor fl. 
REMAP ( YLOV ) it drop 

IVNDARR off 
ittr 32. ; fill in * window 

; rtad * ra»itr of 254 bytos froa IMFILE into VNDARR at IVNDARR 
rds < IMCH , PTR < VNDARR < IVNDARR ) > , 2 5*. > drop 
IVNDARR 128. ; ntlt Mo* 

loop 

YLOV *m 32 . 
1 oop 

cIom ( IMCH > 
□REGION 
•nd 



doftno RECFILL 

intffoor IMFILE 

locil 

intogor IVNDARR RDBLK IMCH 
char PNAME < 30 > 
wi th M_£DGE 

ATTRG < M ED 6 IMG" . 14 0000k ) " . 

ptr < VND REC > VNDADR ; ««t b.gining of th« array at window virtual 

; addrtss 



mvstr ( H dtt3:U00,l0O3 u , PNAME > 
concat < PNAME • IMFILE > 
eoneat < PNAME , ' . IM ) 
IMCH OPEN < PNAME . 'R > 
RDBLX OFF 
REMAP ( 0 ) 
i ttr 8. 

REMAP C YLOV > drop 

IVNDARR Off 

ittr 16. ; fill in * window 

; road a raitor of 254 bytt* from IMFILE into VNDARR at IVNDARR 
rdb < IMCH , RDBLK . PTR C VNDARR i IVNDARR > > . 1 > drop 
INCREMENT RDBLK 

IVNDARR 234. . ; nait biofc 
loop 

YLOV +« 32. 
loop 

cIom ( IMCH > 
tnd 



SUBSTITUTE SHEET 
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<« - 

FLUT.MG — LOOKUP TABLE SETUP ROUTINES FOR THE LEX X DATA 3400 

CL CLRMAP CS RGS GOUT RGOUT 

SETNIL RECT STEP SETUP 8 SETUP 6 SETUP 

»> 

<* ViriibU section: RED. GREEN, and BLUE are the ntmory locations 

in the Lezidate ninory at which the lookup tables start for nch 

color. ALL is a wildcard to affect action for tach color. 

TP LANE , GFLANE, and IPLANE art arguments for D5CHAN, tha channal 

enabl ing pr in it i ve . 

*> 

integer RED GREEN BLUE ALL TFLANE GPLANE 1 PLANE 
RED 1024 
GREEN :« 2048 
BLUE 3072 
ALL on 

<K 

CL maps tht intensity index C CLIN) into tha intensity vilut (CLOUT) 
to bt riprtttntid by tha Laxidata. For this command to ba meaningf ul , 
CLIN must ba between 0 and 253, 1024 and 127?, 2048 and 2303, or 3072 
and 3327. Only tha LSB of CLOUT will ba used. 
««> CL C CLIN CLOUT ). 
«> 



dafina CL 

inttgar GLIN CLOUT 
dsllu ( CLIN CLOUT CLIN CLOUT > 
and 



CLRMAP — sats tviry intansity index batwaan 0 and 4095 to tha input 
argument LEVEL. Thtrt is no harm in sitting intansity indicas that ara 
not ottd, i.a. out of tha ranga of tha ninory reserved for aach color. 
— > CLRMAP ( LEVEL ). 



n 



dafina CLRMAP 

intagar LEVEL 
dsllu C 0 , LEVEL , 4095 . LEVEL ) 
and 

< * — — — - — - 

CS — sats a rampad lookup tab la with a rariaty of argumants. CS 
takes as input CI) no argumants (2) 1-3 color namas (RED, GREEN, or 
BLUE) or (3) ALL. 

CD GS will sat up the b 1 aok-and-whi t a lookup tabla, from 0 to 255. 
C2> GS /RED / GREEN /BLUE will sat up tha lookup tabla starting at 

tha appropriate ninory location. 
(3) GS ALL will sat up all four lookup tables. 

GS only stts those intensities used by the Lesidata. If in *-bit mode, 
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only intensities - O(mod «> will be set. All other, will b. set to 
255 (maximum intensity). 

CS /RED /CREEK /BLUE / ALL 



define CS comaind 

integer COLOR 

loe*! 

integer TEMPI TEMP 2 ' 
if ( emdent *«0 ) 

^dsllu (0,0, 255 f 235 ) 
• 1st 

TEMP 2 :- TP LANE ♦ CPLANE ♦ 1 
If ( COLOR -1 > 
CLRKAP ( 255 > 
I t«r 4 

TEMPI :» 1024. * I 
iter 256 

CL < TEMPI + I , I > 
loop < TEMP 2 ) 
loop 
else 

iter emdent 

dsilu < COLOR . 255 , COLOR 
iter 256 

GL < COLOR «•!»:> 
loop < TEMPI ) 



this fttf the lookup tables by 
looping with the right index, 
as defined by TP LAKE and CPLANE - 



+ 255 , 255 > 

; this sets the- lookup tables by 

; looping with the tight index. 

; as defined by TP LANE and CPLANE. 



nz tar g 
loop 
endif 
end if 
end 



RCS works much the same way as CS does, accepting tha same arguments, 
but setting tha lookup tables in a downward ramp, i.e., tha higher tha 
intensity index, the lower tha intensity value. XI in 6-bit. mode, all 
unused indices ere set to 0. 
«.> RCS /RED / GREEN /BLUE /ALL 



define RCS command 

integer COLOR 

local 

integer TEMPI TEMP 2 
if < emdent ••0 > 

dsilu t 0 , 255 , 255 , 0 ) 
else 

TEMP 2 TPLANE 4 CPLANE ♦ 1 

If ( COLOR — ALL > 
CLRKAP C D ) 
iter 4 

TEMPI 1024 « I 

iter 256 
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CL < TEMPI ♦ I , !• I 
loop < TEMP 2 ) 
loop 
tlct 

iter cmdcnt 
iter 25* 

CL C COLOR ♦!,!•) * 
loop < TEMP 2 ) 
nstarg 
loop 

•ndif » 
•ndif 
ind 

<« ; 

GOUT and RCOUT art mortly wUctocs of CS and HCS. 
mm > coirr 
«•> RCOUT 

») 

d«f ino COUT 

CS ALL 
end 

define RCOITT 

RCS ALL 
•nd 



<* . 

SETNIL — tirots all used indloes within the input color table. 
Used in RECT and STEP to set the indices not choitn to itre. Input 
is a color, or a ntiory location at which to start sotting indicts to 
xero. If input is not a color, it most be <» 373? (256 slots from the 
highest *Iiowtblt slot). ALL may not be ustd with SETNIL. 
•«> SETNIL ( /RED /CREEK /SLUE or 0 to 3739 ) 

— «> 

define SETNIL command 

integer COLOR ' 
iter 25* 

CL ( COLOR +1,0) 
loop ( TPLANE ♦ CP LANE ♦ X ) 
•nd 



RECT — crttttf a binary lookup table in a eartaln color, cither Q or 
255 depending on tht limits. Tha first two arguments ar* tha indie** 
to sat to tha maximum and tho third is tha eolor tablt in which to 
work. Tha first argument must bo <* tha second trguamt . ALL may bo 
uitd as a wildcard, but only ont color argument is allowed. 
— > RECT ( 0-253 , 0-255 , /RED 0 LO HI 1023 

/GREEN 

/BLUE I : 255 

/all > : : o 

_ 1> 
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dtf int RECT 

integer LD HI COLOR 
if < COLOR «- -1 ) 
CLRMAP < 0 ) 

dsllu ( LO . 255 . HI . 235 ) 
dfllu < RED ♦ LO , 255 , RED ♦ HI , 255 ) 
dsllu ( GREEN ♦ LO , 255 . CREEN 4 HI , 253 > 
dsllu ( BLUE ♦ LO , 255 , BLUE ♦ HX , 255 ) 
tilt 

SETNIL COLOR 

dsllu <" COLOR ♦ LO , 233 , COLOR ♦ HI . 255 ) 
endif 
tnd 



STEP A liaited version of RECT In which all indices art dividtd into 

two regions, instead of three. Tht first input is tht indea btfore which 
ill values should bt xero tnd after which ill vtluei should be set to 233. 
NOT A BENE: tht first input is a RELATIVE indtt, fro* 0 to 253 , not from 
0 to «095 . Tht second Input is * color table within which to make tht 
changes. ALL may bt ustd with STEP . 
mm> STEP C 0-253 , /RED 0 THR . 1023 

/GREEN 

/BLUE ! 235 

/ALL ) : 0 

1. *> 

dtfint STEP 



integer THRESH COLOR 
if ( COLOR — -1 ) 
CLRMAP < 0 ) 
itir 4 

RECT ( THRESH , 255 , 1024 * 1 ) 
loop 
•1st 

SETNIL COLOR 

RECT < THRESH , 23 5 , COLOR ) 
tndif 
tnd 



<• 



8SrTUP tnd oSETUP stt the plane naslc variables and call SETUP. 
.«> 8 SETUP 
mm) *SETUP 



dt( ine 8SETUP 
TP LANE off 
CPLANE off 
1PLANE 377K 
DSCHAN ( TP LANE 
DSCLR ( TPLANE < 
DSLLU < 0 , 0 , 
DSLLU ( RED , 0 
DSLLU ( GREEN , 



; if we -are coming from 6-bit node, set TPLANE 
; and CPLANE to 0 , and I PLANE to 235, or 
; B planes enabled for the Lexldata. 

. CPLANE , I PLANE > 
CPLANE ) 

255 . 255 ) 

, RED ♦ 255 f 23 3 ) 

0 . CREEN + 235 , 255 > 



OMPI 
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DSLLU C BLUE , 0 , BLUE + 235., 255 > 
• nd 

define 6 SETUP 

TP LANE :« 1 i if wt arc coming from 8-bit aodt, sot TP LAKE 

CPLANE :« 2 ; and CPLANE to 1 and 2 r osp oc t i v« I y , and then 

IFLANE :• 374X ; sot I PLANE to 232, or * plants cnabltd for 

DSC HAN ( TP LANE , I PLANE , I PLANE ) 
DSCLR ( TP LANE ♦ CPLANE > 
GOUT 
•nd 



< * xxxxxtxxxxxxxxxxxxxxxxxxxxfxx«xxxx*xxxxxxxxxx«xxxx«xx«x«xxxx**x«x*xx»« 

FXMON - INTERFACES TO THE STANDARD FIRMWARE "IACNON.XB" 

X*XXXXXX«XXXXXXXXXXXXXXXXXX«X««XXXXX«XXXXXX**XXXXX**XK*XX*«Y*****X**«* *> 

APUSH RADIX 
OCTAL 

INTEGER LEXIOFLG ; FLAG TO TELL VHUSY WHETHER TO WAIT FOR OUTPUT 

; OR INPUT 

< X t*ttttt«tttflftt*ttlttl X*X«XXXXXXXXXXX»XXXXXXXXX*X»XXX»XX»*XtXXW«*X«XX 

DMA TRANSFER ROUTINES < COMMAND 10) 

•**XXXXXXXXXXXXXXXXXXX«XXtCXXXtXXXX*XXXXXXXXXXXXXXXX*XXXXXtX SXXXXXXXXX X > 

<« DEFINE DMACT ACTION 

INTEGER ARC! ARG2 ARC 3 ARC 4 ARG5 
INTEGER OCODE ( 1 > 
VDOAS ( OCODE ( 0 ) ) 

VDOAS ( DCKAD ( ARGl > ) VDOAS ( ARG2 > VDOAS C — ARC 3 > 
VDOAS C BYTEVD C ARG5 , ARG4 > 3 
END « > 

<* VBUSY — WAIT FOR INPUT/OUTPUT FROM LEX I DATA *> 

DEFINE VBUSY 

IF t LEXIOFLG ) DSOVT 
ELSE DSIVT 
END IF 

END 



-71- 



<* DMAV — VRITE SEQUENTIAL PIXELS VITHIN AN AREA. VORD MODE 
CALL: DMAV < BUFFER , XO » XL # YO , YL > •> 

DEFINE DMAV 

INTECER BUFFER ( 1 ) AXO AXL AYO AYL 

DSL IN < AXO , AYO . AXO ♦ AXL - 1 * AYO ♦ AYL - 1 ) 
DSFVT ( BUFFER , AXL * AYL > 
LEXIOFLC ON 

END 

<* OMAR ~ READ SEQUENTIAL PIXELS FROM DISPLAY INTO BUFFER. WORD MODE 
CALL: OMAR ( BUFFER , XO , XL , YO . YL 5 *> 

DEFINE DMAR 

INTEGER BUFFER ( 1 ) AXO AXL AYO AYL 

DSL IM < AXO . AVO , AXO ♦ AXL - 1 . AYO ♦ AYL - 1 ) 
DSCET ( BUFFER . AXL * AYL ) 
LEXIOFLC OFF 

END 

DEFINE PDMAR 

INTEGER BUFFER AXO AXL AYO AYL 

END 

DEFINE PDKAV 

INTEGER BUFFER AXO AXL AYO AYL 



END 

<* VRFIX - VRITE A SINGLE PIXEL 

CALL: VRPIX < IX , IY , LEVEL ) 



DEFINE VRPIX 

INTEGER IX IY LEVEL 
LOCAL INTEGER ARR C 3 > 

ARR ( 0 ) 11 ARR < 1 > IY j ; ARR C : > 

DSRNV < 1 , ARR > 

END 



:. LEVEL 



<* RDPIX - READ A SINGLE PIXEL 

CALL: LEVEL RDPIX ( IX . IY > 



DEFINE RDPIX INTECER 
INTEGER IX IY 

LOCAL INTEGER ARR < X > 
ARR ( 0 ) IX 



ARR ( 1 ) IY 



DSRNR ( I . ARR . PTR ( RDPIX > )" 



END 



C* GBAR - FILL A BLOCX OF PIXELS 

CALL: GBAR ( XO , XL . YO , YL . LEVEL ) 



*> 



DEFINE GBAR 

INTEGER AXO AXL AYO AYL LEVEL 
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IP ( AXL — 0 > RETURN END I F 

DO AYO . KIN C AYO ♦ AYL - 1 ,511. ) 

DSVEC ( AZO , I , HIN < AXO 4 AZL - 1 . 43?. > » I , LEVEL ) 

LOOP 
END 

DEFINE 8LXSUM LONG 

INTEGER ARC1 ARC 2 ARC3 A'RC4 ARCS 

END 



<* Dt/lno DELAY funotion using RSZ K*rk Tint directive »nd V* i t 

for Global Evont Tliq dirtctivo. 

naki ' KRKTI rnoill byt.wd < 3 ,23. ) 

aikt 1 STSEt rsteal) byttwd < 2 , 133. > 
«> 

int«g«r MRKTS ( 0 > 

.word byttwd ( 3 , 23 . ) 

.word 23. 

.blkw 1 

.word 1 

.word 0 

inttger VTSES < 0 ) 

.word byttwd ( 2 , 41. ) 

.word 23. 



dtfint DELAY 

tnt«9«r DTIM 
MRXTS ( 2 ) DTIM * 4 
RSXDIR € MRKTf > ioorr 
RSZDIR C VTSES > Jotrr 

end 



APOP 
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apush radii 

octal 

<• 

Subroutne 22 BADDR dots * conversion of the 16-bit virtual address 
supplied as atguaent into a full 22-bit physical address of the O-bus. 
Th» MMU uvir map registers are used tor this purpost so this aubtoutine 
oust bo used in a aagic/1 tnvlronsint linked to the I/O page. 
For how to link to the I/O page see MGLIOP.CMD ilia. 

input: 16 bit word reprasenting the virtual address 
output: long( 32 T bi t > word representing th« 22-bit address 
at following: 

- If part is the low 16-bits 

- as part is the high 6 bits aultiplied by 2. 
note: this format was chosen to correspond to the CCD CAMERA 

CONTROLLER build by 2vi Orbach. More bit aani pul at ions 
might be required if usad with other devices, 
©ailing sequence: 

long 22bltaddrs 

22bitaddr 22baddr t ptr ( buff > > 

») 

. QIC 

; the user map register addresses in i/o page 
label l/PAR ;; .word 177640k 
label VPDR .word 177600k 

entry 22AODR long 



no v 


(asp) , rO 




i 


get the 


virtual address 


aov 


rO , rl 










rol 


rO 




! 


isolate 


the AFP ( Active Page Field ) 


rol 


rO 










rol 


rO 










rol 


rO 




i 






bie 


i 177770k , 


rO 


# 


in rO 




asl 


1 rO 






even 




bic 


« 160000k , 


rl 


■ 


isolate 


DP ( Displacement Field ) in rl 


aov 


rt , r3 




f 


save it 




bie 


• 177700k , 


rl 




isolate 


the displacement in block 


ash 


• 177772 , 


r3 




block • 


in page 


add 


UPAR , rO 






get the 


corresponding PAR addr in i/o p*g« 


add 


<r0> , r3 




i 


16 bits 


physical address in blocks 


el r 


r2 




S 


< r2,r3 


> will be the 22 bit physical addr 


ashc 


• 6 , tl 






i 


aake plaee (or the additional 6 bits 


add 


rl r3 






finally. 


. . the 22 bit address 


aov 


r3 , (asp) 




# 


least significant portion of the address 


asl 


r2 




i 


CCD caatra controller foraat 


aov 


r2 t -(asp) 




i 


push th« 


extra 6 bits in the stack 


navt 













. end 
apop 
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parameter VCR :» 1724101c 

p*r*&«ltr BAR :- 172412k 

paranettr CSR :■ 172414k 

parameter DBR :» 172414k 



; DMA word count register. 

; Bus addrets register for DMA. 

; Control status register. 

; Data buffer register. 



long 



PHYADR 



; Physical (22-bit) address of the buffer. 



record DMA L I NC 

integer LNBUF ( 256. ) 
•ndrtcord 

DMA LINE XNLN < 2 > 
integer OUTLN < 234. ) 
char PKAKE (30. ) 

integer TXO TYO 

integer I FN C 10 ) 1DPN ( 20 ) 
integer VCH 
integer CF LAG 
CFLAG off 



<* Walt until DMA operation is complete. (Monitors BUSY bit.) * > 

define VBUS?Y 



while ( peek C CSR ) AND 200k ) 
repeat 
end 

define RDLN 

integer BUFF < 1 ) tO xl yO yl 

PHYADR 22ADDR. < BUFF ) 

poke ( 130000k + X0 - 1 , DBR ) 

poke ( 114000k + Y0 , DBR ) 

poke I — XL I 2 , VCR > 
; poke < — < XL * Yt ) , VCR ) 

poke ( isword C PHYADR ) , BAR ) 

poke < 0 . DBR ) 

poke ( msword ( PHYADR > + 1 , CSR > 
end 

<* 

define VRTLN 

integer X0 Y0 LEN 

if ( CF1AC «»0 > 

poke ( 130000k ♦ X0 . DBR ) 

poke ( 134000k ♦ Y0 , DBR ) * 

else 

poke < 132000k + X0 , DBR > 

poke ( 13e000k + Y0 , DBR ) 
endif t 



iter LEN 





WO &4/U 121 2 iuifuuwA/vii-i • 



-75- 



pofct C ( OUTLN ( i ) md 777k ) ♦ 120000k , DBR > 

loop 
ind 
*> 

avstr < 'd»3:C5.1J , 1DPN > 

define IMAGEFN 

integer ARC1 

ffiv.tr ( ARC1 i I FN ) 

mvstr ( IDFN , PNAME ) 

nconc«t PNAME . ARCI , ' . la , 3 

print itr < PNAME ) 
end 



define VDRAV 

integer FNAME 10 Y0 

local 

integer BUFPTR 
I MACE FN < FNAME ) 
VCH :* open < PNAME , »r ) 
BUFPTR Off 
do V0 , YO + 255. 

if ( rds < VCH , OUTLN , 236. > O 256. > 

print "WARNING; Unexpected end of file" 

nit 



else • 

HVBYVO < OUTLN . 0 , 1NLN < BUFPTR > , 254. > 
DM XV ( 1NLN ( BUFPTR ) , XO , 2 54 . , i . , I ) 
BUFPTR 1 - BUFPTR 
endif 

loop 

VBUBY 

close ( VCH > 
and 



define REDRAW 

VDRAV < I FN ) 
end 

define VSAVE 

integer FNAME 

local 

integer BUFFI BUFF2 
with M_ EDGE 

ATTRC ( "IOPACE" , 140000X ) 
IMAGE FN t FNAME ) 
VCK open ( PNAME , 'rwet ) 
BUFF 1 :» ptr C INLN ( 0 > > 
BUFF2 :« ptr ( INLN ( 1 > ) 
RDLN < BUFFI , 128. , 254. , 128. , 1 > 
do 129. . 384. 
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vsusry 

RDLN ( BUFF2 , t 28 . . 236 . . i , X ) 

vms < vch , Burn .234. > 

ZCHC ( ptr ( BUFFI ) , ptr < BUFF2 ) ) 

loop 
VBUS?Y 
DREG I ON 
elosa ( VCH > 
• nd 



d«fxne CRAB IH 

. inttgtr Z0 Y0 

IOC41 

int#g«r BUFPTR 
with H_EDCE 

ATTRC ( "IOFACE" , HQ0OOK ) 
BUFPTR of! 

poki ( 10001c . DBR ) 
d»lay C 1 ) 
pokt ( 0 , DBR ) 
do 128. 3B3. 

VBUS?Y 

RDLN C INLN C BUFPTR ) , 1 28 . . 23 6 . , 1 , 1 ) 
MVBYUD ( INtN C BUFPTR > , 0 , OUTLN , 254. > 
DMAV ( OUTLN , Z0 , 23* . , TO ♦ i - 228 . , 1 > 
BUFPTR :« 1 - BUFPTR 



loop 
VBUSY 
DREG ION 
•nd 
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integer BLKBUF ( 0 ) 
.woxd 3 ? . 
.word 1 - 236. / 2 
.blkw 12a. 

dm tint PDMAV 1 
integer BUFFER ( 1 > 
avwds ( BUFFER . BLKBUF «■ 4 . 128. ) 
DSOWT 

DSBLOC ( BLXBVF , 130. ) 

*> 

define f DRAW 

integer TXO TYO 

local 

integer IVNDARR LKCKT 
DSL IM ( TXO , TYO , TXO +253. , TYO +255. ) 
YLOV :« 32. 
iter 256. 

REMAP ( i ) drop 

IVNDARR :« VNDADR 

iter 32. 

MV8YVD < IVNDARR , 0 , OUTLN , 236. > 



DSPUT ( OUTLN . 256. ) VBUSY 
IVNDARR ♦« 23 6. 

loop 
loop < 32. ) 
REMAP ( 0 ) drop 
end 



define DRAW 
with M_EDGE 

ATTRC < "EDGING- . 160000k ) 

I DRAW 

DREG 1 ON 
end 



define MDRAV 
with M_£DCE 
ATTRG ( "KTCHIM" . 160000k ) 
(DRAW 
DREG I ON 



define KSAVE 

integer FNAME 

local 
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integer OUTCH IVNDARR PNAME ( IS. ) 
avstr ( "dn3 : C200 , 200] M . FNAME > 
concit ( PNAME . FNAME ) 
concit < PNAME . 1 . in ) 
OUTCH :• open ( FNAME , 'rwct ) 
with M_EDGZ 
ATTRG ( "EDGING" , 140000k ) 
YLOV 32. 
iter 256 
• REMAP ( i ) drop 
IVNDARR :- VNDADR 
iter 32. 

WRS < OUTCH , IVNDARR , 25*. J 
IVNDARR +« 23 4. 

loop 
loop ( 32. ) 
REMAP < 0 ) drop 
DREG I ON 

c 1 on ( OUTCH > 
tnd 



<* Global event flags for synchronisation. TASK holds tho namt of the task 
with whoa we art coaauni cat ing . THESE MUST SC GLOBAL *> 

integer S?NC1 SYNC 2 TASK < 2 ) 

<* Define executive directive* to be need for tacking with Control *> 

aake *VAIT rsxcal! bytewd ( 2 . 41. ) 

aake 'CLEAR rssoall bytewd < 2 , 31. > 

aake 'READ rsxcall bytcwd t 2 . 3? . ) 

aake 'SET rssoall bytewd < 2 , 33 . > 

aake ' RCVDI rsxcall bytewd < 4 , 75 . S 

aak« ' SDATt rssoall bytewd < 3 , 71. ) 

<* Extent* a subroutine call, the arguments and subroutine name are in BUFF. 
BUFF contains. TASK 1 , TASK 2 , 0 or -2 , • ARCS . argl , arg2 , argn . subroul 
ine 

TASK l and 2 aake up the tasknaae of the caller *> 

define DOROUTINE 

integer BUFF < 1 ) 
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l0C4l 

integer adr offst orrsTi 

OFFST « 

orrsn o 

if < BUFF < 2 ) > 
ptr < BUFF < 4 ) ) 
OFFSTl :« I 

OFFST :« OFFST ♦ length < ptr ( BUFF < 4 > > > / 2 ♦ 1 
endi* 

lookup ( ptr C BUFF < BUFF < 3 > ♦ OFFST - 0FF5T1 ) ) ) ; ; ADR : m Ustwcrd 
DROP 

iter BUFF C 3 ) - OFFSTI 

< BUFF < I ♦ OFFST > ) I store args on stack 

loop 

esec < ADR > 
end 

<* Send a buffer of data to the task ws are connected to. BUFF ( 0 ) auit 
be greater than 0. This can be used in the receiver as a code for what 
data ha* been sent. The buffer can be no longer than 13 words. »> 

define SEND 

integer BUFF ( 1 J 

SDATS C TASK < 0 ) , TASK < 1 ) , BUFF , SYNCl ) ioerr 

WAIT ( SYNC 2 > 

CLEAR ( SYNCS > 
end 



(* Receive data from that task wo art connected to and put it in a b«ff«r 
Call: RECEIVE ( BUFFER > Note: if these routines ere overlaid . BUFFER 
must be global. The buffer must be at least 15 words. BUFFER contains: 

TASK1 , TASK 2 . CODE , DATA ' where TASK1 AND 2 make the name of the 
task which is sending the message. CODE is 0 if we are ealling a rcutine, 
-1 if the other task is informing us of its rundown* and >0 if other data 
has been sent *> 

define RECEIVE 

integer BUFF ( 1 > 
VA1T ( SYNC1 ) 
CLEAR ( SYNC1 > 

RCVDI (0.0, BUFF ) ;; ioerr 
if ( BUFF ( 2 ) mm -l ) 
SET < SYNC2 > 

if < BUFF C 3 ) »-0 ) bye else return endif 
else 

if < BUFF < 2 ) --0 or BUFF ( 2 > »- -2 ) 

DOROUTINE ( BUFF > 
indif 

SET I SYNC2 ) 
endif 

end 

<* Set up communications with the task that requested us. 

receives the two flags that the tasks will use for synchronization. 



; rundown 

; acknowledge receipt 
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and tha nama of tha task with whoa wt ire commun i ca t ad . 

Any task that gtts connactad to suit lnui an INITREC comaand before 



dtflna INITREC 
local 

intagar BUFF ( IS ) 
da 1 1 arm 

HCVDf < 0 , 0 , BUFF ) ioarr 
itar 2 

TASK < I > :. BUFF ( i ) 
loop 

SYNC t BUFF C 2 > 
SYNC2 :« BUFF ( 3 > 
SET < SYNC 2 ) 
and 



EXT D I SPMODEL 
EXT VFMP 

EXT BLBDISP ; blob bounding ractangla* 

EXT HAROLD ; 4 44 

intagar STFFLAC 

inlagtc VIDCBF ( 15. ) 



dafina C0NNECT_2_MASTER 
IKZTREC 
bagin 

RECEIVE ( VIDCBF ) 
until C STFFLAC ) 
and 



dafina RECONNECT 
SET < SYNC 2 > 
bagin 

RECEIVE ( VIDCBF > 
until < STFFLAC > 
and 



pr oeaading . 



intagar TMPICH TMPOCH 
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dtfinc STOPCO 

integer TERM 
TMPICH :m clch 
TMPOCH cooh 
cJch :« open < TERM , ■ rw» ) 
coch etch 

poke ( 2 , fdb < coch ) ) 
at ttrip 
STPFLAG on 
And 



define STRTCO 
dt t t era 

doit < cieh > 
eieh :m TKPICH 
coch :• TMPOCH 
STPFLAG off 
RECONNECT 
•nd 

define INITVID 
INITD 

CONN£CT_2_MASTER 
tnd 



I RESTART bxs* INITVID ; ontry point for VIDEOT.TSK 

SAVE VFVIOEOT 
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parimiti: MAX_t_ENT 20 
parimittr iPOINTS :« 23 



Maximum f of 
Haiimum t cf 
an antity. 



permissible antities. 
points permtttad within 



raeord P0!NT_REC 

intager XI YI 
integar CURTYPE 
intager XJ YJ 
integer NXTTYPE 
dummy -3 

and t ico r d 



Coordinates of firet eornar point . 

Typa of tha line between 1st and 2nd point. 

Coordinataa of iteond point. 

Typa of tha naxt Una (batween 2nd and 3rd). 



record ENTITY 

integer tPTS 

POINT_REC 21 < *P0INTS ) 
endrecord 



t of points. 

Sea record POIKTS. 



record FRAWE_REC 

integer FRMt 
intagar SENT 
ENTITY EI < KAX_#_ENT 
integer HX 1 HX' 
integer VX1 VX2 
integer HX3 HX 4 



; Frame 9 . 

; * of entities. 

HY1 HY2 ; Horizontal landmark points. 

VY1 VY2 ; Vertical landmark points. 

HY3 HY4 ; Korisontal landmark points. 



Integer VX3 
endrecord 



VX4 



VY3 



VY4 



Vartical landmark points. 



define DISPHODEL 

integer TXO TYO 
CBAR < TXO , 25e. , TYO 
with M_EDGE 

ATTRC < "MODELR" , 
ptr < FRAME_REC ) 
iter VENT 

with EI ( i > 
iter ePTS - 1 
with ZI C 1 



DSVEC 



loop 

loop 
DSVEC 
DSVEC 
DSVEC 
DSVEC 



HX1 
VX1 
HX3 
VX3 



DRECION 



234. 



1600001c > 
• VNDADR 



♦ TXO 

♦ TXO 

♦ TXO 

♦ TXO 



XI 



HY1 
VY1 
HY3 
VY3 



TXO 



♦ TYO 

♦ TYO 

♦ TYO 

♦ TYO 



GRNCL ) 



YI ♦ TYO 



XJ 4 TXO 



YJ + TYO 



REDCL > 



KX 2 
VXZ 
HX4 
VX4 



♦ TXO 

♦ TXO 

♦ TXO 

♦ TXO 



KY2 
VY2 
HY4 
VY4 



♦ TYO 
+ TYO 

♦ TYO 

♦ TYO 



REDCL 
REDCL 
REDCL 
REDCL 



and 



14 



Vi:-o a, J 
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<* DiipUy the Vafer Map module *) 

<■ Attacheaent to the Inspection Plan »> 

M£M_REC rUIPSDB 

d«Mni ATIP5DB 
with !t_IPSDB 

ATTHC < "IFSDBR" , I60000K > 
ptr ( IPSDB_REC ) VNDADR 
end 



int eger 

integer 

real 

integer 

integer 

in 1 1 gt r 

int eg«r 

inttgtr 

td 

int cger 
integer 
pecttd 
int agar 



WPXO 
MPRAD 
MPSCL 
XFI YP1 
STH AW 
DIH DIV 
XROV YROV 
C LD I £ 



MPYO 



the origin x,y of the wiftr nip on the screen 

the a*p liti on the eereen 

• piael/micron 

the pitches 

str and are fixes 

die sizes 

current row to display 

thft grip lovel »t which the die boundaries are display 



CLCIR ; the gray level of the circle 

CROSX < MAX_RETICLES > ; a location of the marker for tha die being ins 
CROSY t MA X_RETICL ES ) i y location of the marker for ths die being ins 



pected 

<* Get the current row coordinates *> 
define CROVCOO 

integer ROW COL 

XROV MPXO ♦ COL * XPI 

YROV MPYO * ROV * YP I 
end 

define CTORC 

integer XO YO SZ 
with FLAT_TO_ORZGIN 
i MPXO XO * < SZ - fix ( float < X ) * MPSCL ) ) 
MPYO :» YO ♦ fi« C float < Y > * MPSCL > 
end 

define BOX 

integer XDI , YRO , CL 
DSVEC < XDI . YRO . XDI + DIV , YRO , 
DSVEC ( XDI , YRO ♦ OIK , XDI + DIV , 
DSVEC C XDI , YRO . XDI , YRO ♦ DIH , 
DSVEC ( XDI ♦ DIV , YRO , XDI ♦ DIW . 

end 

define UFMAP 

integer XO « YO * SZ 

local . 



CL ) 

YRO ♦ DIH , CL ) 
CL ) 

YRO ♦ DIH . CL ) 
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intaoac XDXE 

AT IP SOB 

GLDIE :« GRNGL 
CLCIR :« GRNCL 

with INSP_PLN 

with HEADER 

with INSP_DATA_BA5E 

SZ -« to. 

xo ♦« s 

YO 3 

MPRAO SZ / 2 

KPSCL :» Uoat ( MPRAD ) / < float ( VAF£R_SZ ) * 500.0 > 

XPI fia < DIE_X * KPSCL ) 
YPI :* fii < DIE_Y » KPSCL ) 

with LAYERS < CUR_LAYER ) 

with DTL_LAYER_R£V < t_REVS - t > 

with L_R£TICLE 

with RETICL£_DI E 

STH :« D_ST_HGT 

AW :« D_AV_VDTH 

DIV :- YPI - !i» ( float < AW ) • KPSCL ) 
DtH :» XPI - fix ( float < STH ) * KPSCL ) 



CTORC C XO YO KPRAD ) 
itar #_DIE_ROVS 

with VAFER.MAP < i > 

CROVCOO < i . XST_D_t ) 

XD IE :« XROV 

iter LAST_D_t - 1ST_D_* 

SOX < XD1E , YROV , GLOIE > 
ZOIE XDIE ♦ XPI 

loop 
loop 

DSCIR C < XO ♦ KPRAD > , C YO * KPRAD ) . KPRAD , CLCIR > 
with REFER ENC E_D 1 E 

CROVCOO < ROW . CLKN ) i GET COORDINATES OF REFERENCE.DIE 

BOX < XROV , YROV , BLUGL > ; DRAW IT IN RED 

with L_INSPECTION * GET RETICLES TO INSPECT . 

itar alTO_INSP 

with INSP_R C i ) 

CROVCOO ( ROW # CLKN ) 

CROSX ( i ) :» XROV ♦ DIV / 2 - 2 

CROSY < i ) :- YROV + DIK / 2 - 3 

BOX C XROV , YROV , REDGL ) 
loop 
DREGION 
and 

d«fin« OISFX 



SUBSTITUTE £MZET 



O.MPI 
^ V/LO 
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Jnttger XO YO CL 
DS5AO < XO YO CL 0 
DSTXT ( "X- ) 
tnd 



1 > 



define SHOVDIE 
ATIPSD8 
J£ ( I-MODE 



mm PRIMARY ) 



DISFX 
DISPZ 

• Is* 
DISFX 
DISFX 

end if 

DREC10N 



CROSX 
CROSX 

CROSX 
CROSX 



CONF IRK 
PRIMARY 

PRIMARY 
CONFIRM 



end 

define DMESSAGE 
address MESS 

CBAR < 0 286. 236. 90. 0 ) 
DSSAO ( 32. 320. REDGL 0 2 > 
DSTXT < MESS > 
end 



CROSY 
CROSY 

CROSY 
CROSY 



CONFIRM 
PRIMARY 

PRIMARY 
CONFIRM 



0 ) 
REDGL 

0 ) 
REDGL 



define ACQMSC 

DMESSACE < "IMAGE ACQUISITION" > 
end 



d»*ine IPRMSC 

□MESSAGE < "IMAGE PROCESSING" ) 
end 

define MDLMSG 

DMESSACE < "MODEL MATCHING" ) 
end 

define DFTMSG 

DMESSAGE ( "DEFECT ANALYSIS" ) 
end 

define END MSG 

DMESSAGE ( "THAT* S ALL FOLXS ! " ) 
end 



SUBSTITUTE SHEET 



0MPI - 
WIrO 
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inttfcr KINXO KINYO MAXXl HAXYl 



d«tln« BOUND 

OSVEC ( KINXO - I 

DSVEC ( HAXXl ♦ 1 

DSVEC ( MAXX1 ♦ I 



DSVEC 
tnd 



< KINXO - 1 



KINYO - 
KINYO - 
NAXYl ♦ 
MAXYl ♦ 



MAXX1 
KAXXl 
KINXO 
KINXO 



KINYO 
KAXY1 
KAXYl 
KINYO 



HEDCL ) 

REDCL ) 

REDCL ) 

REDCL > 



dtfin« BNDRCTS 

int»o«r TXO TYO 

ATIPSDB 

with INSP_DATA_BASE 
TXO +. REG_X 
TYO ♦« REC_Y 
with INSP_PIN 
with LAYERS ( KOD_LAYEH ) 
with DTL_.IAYER.JIEV < t_REVS - 1 ) 
with L_RETICLE 
with RETICLE_DIE 
with D_ PATTER MS ( KOD_PATTERN > 
with INSP_FR C KOD_SITE > 

with F_DEFCTS ( MOD_FRAKE ) 
print "No. of Dorocts" , i_DFCTS 
it or #_DFCTS 

with DEFECTS < i ) 
KINXO :« XCOK - DELX ♦ TXO 



DREGION 
«nd 



KINYO 
HAXXl 
KAXYl 
BEEP 
BOUND 
DELAY 
loop 



YCOM - DELY ♦ TYO 
XCOK * DELX + TXO 
YCOK ♦ DELY + TYO 



C 5 ) 



SUB37J7U7E SHEET 



f _ qv?i 
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integer XI Yl 



define DRAVBOX 

' integer XO XL YO YL CL 

1CC4I 

XI :- 
Yl :» 
ds vie 
ds vtc 
dsrtc 
ds vtc 
end 



XO * 
YO ♦ 
( XO 

< XI 

< XI 

< XO 



XL 
YL 



YO 
YO 
Yl 
Yl 



XI 
XI 
XO 
XO 



YO 
Yl 
Yl 
YO 



CL 
CL 
CL 
CL 



sets up the new coordinates of the 
right bottom 

draws the new bos according to specs 



define LOVMAC 
DSCLR C 25 5 . ) 
VDRAV ( *JOE 32. 25 6. ) 
iter 6 

DRAVBOX ( 201. . 24 . 34*. 
LOOP 
PAUSE 
end 



( I * 24 ) 



24 



REDCL > 



define LKAC 
ATI P50B 

CBAR ( 520. . 30. 345 , 130 0 ) 
DRAVBOX ( 521. , 24 , 34*. ♦ ( ( 
OR EG I ON 
end 



5 - CUR_FRAME > * 24 > 



24 



REDCL ? 



define HAROLD_DEMO 

VDRAV ( 1 RNF03 32 . 0 > 

DRAVBOX < 47. , 224. • IS. . 224. REDCL ) 
PAUSE 

DI SPftODEL < 352. 0 > 
PAUSE 

VDRAV ( »RNr03 352. 236. ) 
DRAVBOX ( 547. 17. 308. 16. REDCL J 
DRAVBOX < 428. 17. 357. 15. REDCL ) 
PAUSE 

DSCLR ( 233. ) 
VTMAP ( 220. 3*. 200 ) 
VDRAV < 'RNF03 32. 254. > 
VDRAV ( ' RCL03 352. 25*. > 
DSVEC ( 318. 155. 32. 254. REDCL ) 
DSVEC ( 318. 155. 286. 234. REDCL ) 
DSVEC < 348. 153. 352. 254. REDCL > 
DSVEC < 348. 1SS. 408. 254. REDCL ) 
DRAVBOX ( 227. 17. 308. 18. REDCL ) 
DRAVBOX < 347. 17. 306. 18. REDCL ) 
end 



SUBSTITUTE Zb'.EET 
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EDGE DETECTION 

CEDGET.MG - THIS MODULE LOADS ALL OF THE MODULES USED IN "CEOGET" 
»»««»»«»«««*««««t«««««««»»««*«««««««««»«»«*«««*«*» •«■«««*•«««*■»»« «»«» *> 



•It 


POP ID 


lit 


DM ISC 


• xt 


HAKAP 


•II 


EDCREC 


txt 


AFDECL 


tit 


IMITAP 


• xt 


AFEDCE 


• xt 


EDGCOM 



inttgor STPFLAC 
intftgtr EDCCBF ( X3. ) 



d«£in« CONNECT_2_MASTER 
IKITREC 
begin 

RECEIVE ( EDCCBF ) 
until ( STPFLAC ) 
tnd 



defin* RECONNECT 
SET ( SYNC 2 ) 
Dogin 

RECEIVE C EDCCBF ) 
until C STPFLAC > 
tnd 

integer TMPICK TMPOCH 

define STQFCO 

integer TERM 
TMPICH cich 
TMPOCH :« coch 

cich :■ open C TERM , ' rw* ) 
coch ;* cich 

pole* C 2 . fdb ( coch ) > 
ittira 
STPFLAC on 
and 



define STRTCO 
d» t ttra 

close f cich ) 
cich :* TMPICH 
coch :* TMPOCH 
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STPFLAG Oil 
RECONNECT 
•nd 

dtflnt EOCEINIT 
wi th M_EDCE 

ATTRC < "EDGIMG" , 140000k ) 
. CONNECT_2_KASTER 
■nd 

avstr C 'ctdgot , proastr > 

irtftirt ;r b*st EDGEINXT ; RESTART FOR EDCE DETECTION PROGRAM 

nvt CEOCET 



<* Nimt : APEDGE.K *> 

int»o«r COUNT 

dftfifit INI7_DBF 
Ittr 40 

DBF C X > I + I 

loop 
»n d 



d«fin« FIRST 

ACHN ( ptr ( N ) . FC8CHN , 300. ) i Pirform 1,2.1 



AAOD ( DBF I 2 6 ) , DBF ( 18 ) . DBF ( IB ) > 
AADO ( DBF ( 26 > , DBF ( 2d ) . DBF ( X7 > ) 
AADD ( DBF ( 26 ) , DBF < 26 > , DBF C 19 > ) 



hor. conv 
— ) DBF ( 26 ) 



ACONV ( DBF < 27 ) . DBF < 26 ) , 1 > * HO «> DBF ( 27 ) 

ASCDB ( -2. DBF ( 26 ) ) 

ACONV ( DBF < 28 ) . DBF < 26 ) . 2 ) I HE — > DBF < 28 3 

AHORZ ( DBF < 32 ) , DBF < 27 ) , DBF ( 28 > ) ; HEDGE ( CUR.LINE > 



ASUB < DBF ( 26 > . DBF < 16 > , DBF C 20 > ) 

AMUtS < DBF < 26 ) , DBF ( 26 ) , 1 ) 

ASUB < DBF ( 2V ) , DBF C 17 > , DBF ( 19 ) ) 



Equl val int 
vir t . conv . 



subs k rruTt ghzet 



OMPJ 
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AMULS C DBF ( 2? > # DBF ( 2?) , 3 ) i with odd o*»k. 

AADD C DBF < 30 > , DBF < 29 > , DBF ( 26 ) > ; VO — > DBF ( 29 ) 

ATFRi < DBF ( 29 ) DBF < 30 ) 7 > 
ASCDB < 1 DBF < 29 > > 

AADD ( DBF ( 26 ) , DBF < 16 ) , DBF < 20 ) > ; 

AMULS ( DBF < 2i > , DBF ( 26 > , 2 > ; Equivalent 

AADD ( DBF C 30 ) , DBF < 17 > . DBF < 19 > > ; rert. conv. 

AMULS ( DBF < 30 ) , DBF ( 30 ) , 5 ) ; with •▼•n milk. 

AADD i DBF ( 30 ) , DBF < 30 ) , DBF < 26 ) ) ; VE — > DBF < 30 ) 

AMULS < DBF ( 26 > . DBF ( IB ) , i > ; 

AADD ( DBF < 26 ) , DBF ( 30 ) , DBF < 26 > > ; 

ASCDB < -1 DBF < 26 ) > 

ATFR1 < DBF ( 30 ) DBF < 26 ) 7 ) 

AC END 

AHIAB ( FCBCHN , 8 . < N > 
AICHN < 8. ) 
ARLDB ( 8. ) 

end 

define ROT — SCRATCH 
local 

integer TEMPI TEMP 2 TEMP 3 TEMP 4 
TEMP 2 :« DBF t 20 ) 



. 19 

TEMPI DBF < X* > 

DBF ( I 1 > TEMP 2 

TEMP 2 :» TEMP t 

DBF ( 2 0 ) :• TEMP 2 



define ROT_OUT 
1 ocil 

integer TEMPI TEMP 2 
TEMP 2 DBF C 9 ) 
do 10 , 15 

TEMPI :- DBF < X ) 

DBF ( I ) TEMF2 

TEMP 2 TEMPI 

loop 

DBF C 9 ) :. TEMP 2 

end 

define UPDATE 
ROT_SCRATCH 

ACKN < ptr ( N > . FCBCHN . 300. ) 
AHIAB ( BOT , DBF < 31 ) , 128. ) 
ALfPAK C DBF ( 20 ) , DBF ( 31 > > 



do 16 

loop 
end 




If \* V»"T/ UAAti. 
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ADNSN ( DBF ( 20 ) > 

AMRDB ( DBF < 20 ) > 

ADBDB ( DBF ( 36 ) DBF C 2? ) > 

ADBDB ( DBF < 37 ) DBF ( 30 > > 

ADS DB ( DBF < 9 > DBF ( 32 > ) 

AZRDE ( DBF < 34 ) ) 

ADBDB ( DBF ( 34 > DBF ( 35 ) > 

AZRDB ( DBF < 35 ) ) 

AC END 

AHIAB ( FCBCHN . B. . N ) 
AXCKN ( 0. ) 
ARLDB ( 8. ) 
end 



define DOLINES 

integer tLINES 
iter tLINCS 
FIRST 

increment COUNT 
if < COUNT < 2 ) 
UPDATE 

else 

AVZER < DBF ( 36 ) DBF ( 37 > DBF ( 2? ) DBF ( 30 ) a 
DBF ( 34 ) DBF < 33 ) > 



AORDB < DBF < 9 > DBF < 34 > > 
ROT.OUT 

if ( COUNT < 4 ) 
UPDATE 

els* 

AFRUN t DBF C 9 ) , DBF t 10 > . DBF ( 1 1 > , DBF < 1 2 > , a 
DBF C 13 > DBF C 14 > » DBF < 15 > ) 
if ( COUNT < 7 ) 
UPDATE 

else 

AABHI ( TOP , DBF ( 1 5 > * 256. t 0 ) 
MWDBY < TOP , 0 , TOP . 256. ) 
UPDATE 

•fid If 
ftndlf 

end if 

ptr < LINE_REC ) +» 256. 

loop 
end 



define OOEDCE 
COUNT off 

INIT_DBF : Inltilite AP DBF rallies 

ZERO_OBF 

READ_!NIT 



SUGSTITCJTE SHEET 
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avsir ( VNDAOR , 236. ) 
DOLINES ( 24. ) 
do 64. , «32. 

VNDOFF :* i 

HAPV C VNDB ) 

ptr < L!NE_JUC ) :« VNDADR ♦ 1024. 

DOLINES ( 16. > 
loop C 64. ) 
VNDOFF 894. 
KAPV ( VNDB > 

ptr ( iXNE_REC ) :- VNDADR ♦ 1024. 
DOLZNES ( 19. ) 
it or 4 

ROTJ3VT 

APRUN < DBF C 9 > , DBF < 10 ) . DBF ( 11 ) , DBF < 12 > . a 

DBF ( 13 ) DBF ( 14 ) , DBF ( t! ) ) 
AABH1 < TOP , DBF ( 15 ) , 256. , 0 > 
KWDBY ( TOP , 0 , TOP , 256. > 
ptr < UNE_REC > 256 . 

loop 
itoc 3 

ROT_OUT 

AABKI < TOP . DBF ( 15 > . 25 A. . 0 ) 
HWDBY ( TOP , 0 , TOP , 256. ) 
ptr < tINE_REC ) 256. 

loop 

■Mir ( TOP . 256 . ) 



tn<J 
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<• Ntmt : APDECL.MC 

This routine eat* up the buffers required by the AP . »> 

inttotr DBF ( 40 ) ; Data buffer* coded tt follows 
* intagar H i Chaining counter 

integer FCBCHN ( 500. ) ;Chalning spact 

record L INE_R£C 

char TOP < 23a. ) 

dummy 1024. 

char BOT < 23a. > 
tndrtcord 



<« DBF < I > MEANING VALUE 

DBF < 0 ) DBMO 

DBF ( 1 > DBJ1E 

DBF < 2 ) DBMO 2 

DBF < 3 ) DBMO 3 

DBF < 4 ) DBME2 

DBF ( 5 ) DBME3 

DBF < 6 ) DBFTR 

DBF ( 7 > Chaining Buffer 

DBF ( 8 ) Chaining Buffer 



DBF 


( 


9 


> 


OUT! 


10 






DBF 


C 


10 


) 


OUT2 


11 


• 

• * 




DBF 


< 


11 


) 


OUT 3 


12 


t 




DBF 


( 


12 


) 


OUT4 


I* 


I 




DBF 


( 


13 


) 


OUTS 


14 


i 




DBF 


c 


14 


> 


OUTa 


15 


: 




DBF 


< 


IS 


) 


OUT7 


16 


) 




DBF 


< 


la 


> 


DBF1 


17 


3 




- DBF 


( 


17 




DBF2 


16 






DBT 


( 


IS 


> 


DBF3 


19 


: 




DBF 


( 


1? 


) 


DBF4 


20 


: 




DBF 


< 


20 


) 


DBF5 


21 


3 




DBF 


( 


21 


) 


DBF 6 


22 


) 




DBF 


( 


22 


) 


DBF7 


23 


: 




DBF 


( 


23 


) 


DBFS 


24 


! 


< — 


DBF 


( 


24 


> 


DBF? 


25 


i 




DBF 


( 


23 




DBFIO 


26 


j 




DBF 


< 


24 


> 


DBFli 


27 


3 




DBF 


( 


27 


) 


DBF12 


28 


: 




DBF 


(■ 


28 


) 


DBF13 


27 


t 


<--« 


DBF 


< 


2? 


) 


DBF14 


30 


i 




DBF 


( 


30 


> 


DBF15 


31 


3 




DBF 


( 


31 


) 


DBFD 


32 






DBF 


< 


32 


> 


HZERi 


33 






DBF 


< 


33 


) 


HZER2 


34 






DBF 




34 


) 


.ZER1 


35 






DBF 


< 


35 


) 


Z£R2 


26 







— OUTPUT DATA 



RAW DATA 



- FILTERED DATA 



EDGE DATA 
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DBF < 3< ) 
DBF ( 37 ) 



VOl 
VE1 



37 
38 



<* This routine initilizas tht data btiflars 

in th« AP with tha first firm lints of 
tht raw into* data *> 



dafina READ_INIT 
local 

intsgar DBFi 
DBF t :. 17. 
with M_EDGE 

ptr < LINE_REC > VNDADR 
VNDOFF off 
HAPV i VNDB > 
ACHN < ptr ( N ) , FCBCHN 
i tar S 

AHIAB ( BOT . DBF < 31 ) , 
AUFAX ( DBF: . DBF < 3i ) ) 
ADNSN (DBFI ) 
ANRDB ( DBF 1 ) 
xncrtmtnt DBFl 
ptr C LINE_REC > 23*. 



; AP raw data bufftn 
2304 . 



500. 



loop 



AC END 



) ; Start chaining 

128. ) ; (LINE ) — > DBFl 

; Dttarmim Norma 1 i x ir.g Coaff. 
i Nornallza 

; End chaining 



and 



AKIAB ( FCBCHN , 8 . , N ) 
AXCHN ( 8. > 
ATUDB ( 8. ) 



dafina Z£RO_DBF 

AZRDB ( DBF ( 34 ) ) 
AZRDB ( DBF i 33 ) ) 

and 




W */ \* 4. M A • 
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<* THE MAXE OF AP400 ARRAY PROCESSOR PRIMITIVES «> 

APUSH RADIX 

OCTAL 



MAKE 


' AINIT 


RSXFUNC 


34 


MAXE 


• ARESET 


RSXFUNC 


36 


MAKE 


•AABRT 


RSXFUNC 


40 


MAKE 


• ACEND 


RSXFUNC 


42 


MAKE 


• ACHN 


RSXFUNC 


44 


MAKE 


* ACTL 


RSXFUNC 


46 


MAKE 


' ASETV 


RSXFUNC 


SO 


MAKE 


1 AVA IT 


RSXFUNC 


52 


MAKE 


* AVFCB 


RSXFUNC 


34 


MAKE 


* AXCKN 


RSXFUNC 


36 


MAKE 


' AEXIT 


RSXFUNC 


60 


MAKE 


' AABKI 


RSXFUNC 


62 


MAKE 


1 AKI AB 


RSXFUNC 


64 


MAKE 


• ADNSN 


RSXFUNC 


66 


MAKE 


•ANRDB 


RSXFUNC 


70 


MAKE 


•A ADD 


RSXFUNC 


72 


MAKE 


' • AMUL 


RSXFUNC 


74 


MAXE 


■ AFTH2 


RSXFUNC 


76 


MAKE 


• A ITR1 


RSXFUNC 


100 


MAXE 


' AALDB 


RSXFUNC 


102 


MAKE 


•AZRDB 


RSXFUNC 


104 


MAKE 


•ASQRT 


RSXFUNC 


106 


MAKE 


• AEXPE 


RSXFUNC 


no 


MAKE 


■ ARLDB 


RSXFUNC 


112 



MAXE 


•ASUB 


RSXFUNC 


114 


MAKE 


' AMULS 


RSXFUNC 


116 


MAKE 


1 ATFR I 


RSXFUNC 


120 


MAKE 


•ACONV 


RSXFUNC 


122 


MAKE 


1 AEOCE 


RSXFUNC 


124 


MAKE 


• AMOVE 


RSXFUNC 


126 


MAKE 


1 ADBTS 


RSXFUNC 


130 


MAXE 


. 1 AOGDB 


RSXFUNC 


132 


MAKE 


•APRUN • 


RSXFUNC 


134 


MAKE 


• ASCDB 


RSXFUNC 


136 


MAKE 


* AZERO 


RSXFUNC 


140 


MAXE 


* AHZER 


RSXFUNC 


142 


MAKE 


■AVZER 


RSXFUNC 


144 


MAKE 


1 AORDB 


RSXFUNC 


146 


MAKE 


* AUPAK 


RSXFUNC 


130 


MAXE 


•ASCR5 


RSXFUNC 


152 


MAKE 


* AHORZ 


RSXFUNC 


134 


MAKE 


* AVERZ 


RSXFUNC 


156 


MAKE 


•AVCON 


RSXFUNC 


160 



APOP 
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.TITLE LIBRARY ROUTINES FOR AP«00 fUKTIONS 
.IDEKT/01/ 



; FUNCTION: 

i 

; AUTHOR: 

j DATE: 

; REVISIONS : 



ALLOWS THE AF400 FUNCTIONS TO BE CALLED FROM KACIC 
CHETANA BUCK 
AUG 9, 1982 



. SBTTL VARIABLE STORAGE FOR CALL ARGUMENTS 
.PSECT APDATA , 0 , RV 



; INTERFACE BETWEEN MACIC/L AND FORTRAN CALLING SEQUENCE 



ARGLST: .BLKV aQIO 
MCLST: .BLKV aDIO 
SAVERS: .VORD 0 



ARGUMENT LIST ( POINTERS ) 
ARGUMENT LIST ( VALUES > 
TEMPORARY STORAGE FOR R5 



.SBTTL MAGIC/ L CALLABLE AP400 ROUTINES 
.PSECT APCODE 



AP RESOURCE MANAGEMENT ROUTINES 
.GLOBL XINIT 



AINIT. 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



ALOAD: : JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



ARESET: 



. JSR 
MOV 
JSR 
JSR 



RO ,SAVR 
• 0 ,R0 
PCAPMCl 
PCKINIT 
RO , RSTOR 
PC 



. GLOBL XLOAD 



RO i SAVR 
• 2,R0 
PC , APMG4 
PC ,KLOAD 
RO, RSTOR 
PC 



.GLOBL KRESET 



RO , SAVR 
#0 ( R0 
PCAPMGt 
PC, KRESET 



2 SAVE REGISTERS 

;t OF ARCS 

; SET INTERFACE 

; RESTORE REGISTERS 



;SAVE REGISTERS 
;t OF ARGUMENTS 
;SET INTERFACE 

; RESTORE REGISTERS 



;SAVE REGISTERS 
;# OF ARCS 
;SET INTERFACE 
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JSR RO. RSTOR ; RESTORE REGISTERS 

RTS PC 



. CLOBL KABRT 

AABRT: : JSR RO.SAVR ;SAVE REGISTERS 

MOV I0,R0 ;f Or ARGUMENTS 

JSR PCAFMGl ;SET INTERFACE 

JSR PC , KABRT ; 

JSR RO. RSTOR i RESTORE RECISTERS 

RTS PC 



CLOBL KCEND 

• 

AC END : : JSR RO.SAVR ; SAVE RECISTERS 

MOV 10, RO OF ARGUMENTS 

JSR PC.AFMGI ; SET INTERFACE 

JSR PC, KCEND ; 

JSR RO , RSTOR ; RESTORE REGISTERS 

RTS PC 



. CLOBL KCKN 

ACHN: : JSR RO.SAVR . J SAVE REGISTERS 

MOV «3,R0 ;• OF ARCS 

JSR PC , APMG2 ;SET INTERFACE 

JSR PCKCHN * ; 

JSR RO « RSTOR j RESTORE REGISTERS 

RTS PC 



. CLOBL XCTL 

ACTL : : JSR RO.SAVR ; SAVE REGISTERS 

MOV fl ,RO OF ARCS 

JSR PC t APMC2 ;SET INTERFACE 

JSR PC, XCTL 

JSR RO, RSTOR ; RESTORE RECISTERS 

RTS PC 



. GLOBL KSETV 

ASETV: : JSR RO , SAVR ; SAVE RECISTERS 

MOV tl ,R0 ;t OF ARCS 

JSR FCAFMG2 J SET INTERFACE 
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JSR 
JSR 
RTS 



pc.Ksnv 

RO. RSTOR 
PC 



i RESTORE REGISTERS 



.GLOBL KVAIT 



AVA1T: : JSR 
NOV 
JSR 
JSR 
JSR 
RTS 



RO.SAVR 
• 0 ,R0 
PCAPMGl 
PC, KVAIT 
RO , RSTOR 
PC 



;SAVE REGISTERS 
it OP ARCS 
;SET INTERFACE 
i 

; RESTORE REGISTERS 



.GLOBL XVFCB 

AVFCB : : JSR RO.SAVR 

KOV ti.RO 

JSR PCAPKC2 

JSR PCKVFCB 

JSR RO,RSTOR 

RTS PC 



;SAVE REGISTERS 
;• OF ARCS 
;SET INTERFACE 

r 

; RESTORE REGISTERS 



.GLOBL XXCKN 



AXCHN: : JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



RO ,SAVR 
• I .RO 
PCAPMGl 
PC.KXCHN 
RO , RSTOR 
PC 



;SAVE REGISTERS 

It OP ARGS 

i SET INTERFACE 

» 

; RESTORE REGISTERS 



.GLOBL XEXIT 



AEXIT: 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



RO ,SAVR 
tO.RO 
PCAPMGl 
PC, KEXIT 
RO • RSTOR 
PC 



;SAVE REGISTERS 
;l OF ARGS 
;SET INTERFACE 

; RESTORE REGISTERS 



;AP DATA MEMORY DATA BUFFER MANAGEMENT ROUTINES 
. GLOBL KALDB 




. GLOB L XRLOB 



. CLOBL KDBTS 
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AALDB: 



J5R 
MOV 
JSR 
JSR 
J5R 
RTS 



RO i 5AVR 
12 , RO 
PC , APMC 1 
PC , KALDB 
RO , RSTOR 
PC 



SAVE REGISTERS 

t or ARCS 

SET INTERFACE 
RESTORE REECISTERS 



ARLDB : 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



RO ,SAVR 
• 1 ,R0 
PCAPMGl 
PC , KRLDB 
RO , RSTOR 
PC 



:SAVE RECISTERS 
;l OF ARCS 
;SET INTERFACE 

i 

; RESTORE REGISTERS 



ADB1 



JSR 
MOV 
JSR 
JSR 
JSR 



RO ,SAVR 
• 1 ,R0 
PCAPMGl 
PC, KDBTS 
RO , RSTOR 



;SAVE RECISTERS 
;• OF ARCS 
;SET INTERFACE 

; RESTORE RECISTERS 



RTS 



PC 



i DATA TRANSFER ROUTINES 
.CLOBL KABHI 



AABHI : 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



RO .SAVR 
«4 ,R0 
PC , APMC3 
PC , KABHI 
RO , RSTOR 
PC 



;SAVE RECISTERS 
;« OF ARCS 
;SET INTERFACE 

; RESTORE RECISTERS 



. CLOBL KHIAB 



AHIAB ; 



JSR. 
MOV 
JSR 
JSR 
JSR 
RTS 



RO , SAVR 
• 3 .RO 
PC » APMC3 
PC , KHIAB 
RO , RSTOR 
PC 



SAVE RECISTERS 
t OF ARCS 
SET INTERFACE 

RESTORE RECISTERS 
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. CLOBt KKOVE 



AMOVE : : 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



R0 , SAVR 
• 3 ,R0 
PC , APMC1 
PCKMOVE 
RO. RSTOR 
PC 



;SAVE REGISTERS 

OF ARCS 
;5ET INTERFACE 

i 

; RESTORE RECISTERS 



• LOGICAL DATA MANIPULATION ROUTINES 
. GLOB I KDNSN 



ADNSN: 



JSR 
KDV 
JSR 
JSR 
JSR 
RTS 



RO.SAVR 
• 1 ,R0 
PC, APMGl 
PC.XDNSN 
R0 , RSTOR 
PC 



SAVE REGISTERS 
i OF ARGS 
SET INTERFACE 

RESTORE RECISTERS 



. GLOBL KNRDB 



AKRDB JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



R0 , SAVR 
«1 .RO 
PC $ APMGl 
PC, KNRDB 
RO. RSTOR 
PC 



SAVE RECISTERS 
ft OF ARGS 
SET INTERFACE 

RESTORE RECISTERS 



.GLOBL KZRDB 



AZRDB: : 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



RO , SAVR 
• 1 ,R0 
PC.APMGI 
PC, KZRDB 
RO , RSTOR 
PC 



SAVE RECISTERS 
• OF ARGS 
SET INTERFACE 

RESTORE REGISTERS 



.GLOBL KDBDB 

ADSDB : : JSR RO.SAVR 

MOV t «2.R0 

JSR PC, APMGl 

JSR PC , KDBDB 

JSR RO i RSTOR 



SAVE RECISTERS 
;« OF ARGS 
SET INTERFACE 

RESTORE RECISTERS 



OMFI 
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RTS PC 



; COMPUTATION ROUTINES 

. CL08L KSCDB 

• 

A5C0B : : JSR RO.SAVR ;SAVE REGISTERS 

MOV «2.R0 ;• OF ARCS 

JSR PC.APMGl ;SET INTERFACE 

JSR PCXSCDB ; 

JSR RO, RSTOR ; RESTORE REGISTERS 

RTS PC 



. CLOBL XTFR I 

J 

ATFRl : : JSR RO,SAVR ;SAVE REEGI STERS 

MOV t3,RC ; • OF ARCS 

JSR PC.APMGI ;SET INTERFACE 

JSR FCKTFRl ; 

JSR RO. RSTOR ; RESTORE REGISTERS 

RTS PC 



. GLOBL KCONV 

i 

ACONV:; JSR RO.SAVR ;SAVE REGISTERS 

MOV i3.R0 ;l OF ARCS 

JSR FCAFMG1 . ;SET INTERFACE 

JSR PC, KCONV ; 

JSR RO $ RSTOR ; RESTORE REGISTERS 

RTS PC 



. GLOBL KEDGE 

l 

AEDGE : : JSR RO , SAVR ;SAVE REGISTERS 

MOV t5,R0 ;# OF ARGS 

JSR FCAFMGl ;SET INTERFACE 

JSR PC , KEDCE ; 

JSR RO , RSTOR ; RESTORE REGISTERS 

RTS PC 



. GLOBL KZERO 

AZERO : : JSR RO.SAVR ;SAVE REGISTERS 

MOV «5,R0 ;• OF ARGS 
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JSR PC.APKC1 ;SET INTERFACE 

JSR PC , KZERO ; 

JSR RO f RSTOR ; RESTORE REGISTERS 

RTS PC 



.GLOBE. KPRUN 

f 

APRUN: : JSR RO , SAVR ;SAVE REGISTERS 

MOV f7,R0 ;• OF ARCS 

JSR FC.APKG1 ;SET INTERFACE 

JSR PCKPRVN 

JSR RD , RSTOR ; RESTORE REGISTERS 

RTS PC 



GLOBL KHZER 

AHZER : : JSR RO,SAVR ; SAVE REGISTERS 

KOV #3,R0 ;• OF ARCS 

JSR PC.APKCl ;iftt inttrfict 

JSR PC, KHZER ; 

JSR RO .RSTOR ;R£STORE REGISTERS 

RTS PC 



. GLOBL KVZER 

AVZER : : JSR RO , SAVR ; SAVE REGISTERS 

KOV I^RO ; t OF ARCS 

JSR • PC i AFMG1 ;SET INTERFACE 

JSR PC, KVZER ; 

JSR RO. RSTOR ; RESTORE REGISTERS 

RTS PC 



. GLOBL XORDB 

AORDB : : JSR RO.SAVR ; SAVE RECISTERS 

MOV #2,R0 OF ARCS 

JSR PCAFMCl ;SET INTERFACE 

JSR PC , KORDB ; 

JSR RO , RSTOR ; RESTORE REGISTERS 

RTS PC 



.GLOBL KUPAK 

AUPAK:: JSR RO , SAVR ; SAVE REGISTERS 

KOV #2.RO OF ARCS 
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JSR 
JSH 
JSR 
RTS 



PC , APMG 1 
PC.KVPAK 
RO. RSTOR 
PC 



SET INTERFACE 
RESTORE REGISTERS 



. GLOBL KSUB 



ASUB: : 



JSH 
MOV 
JSR 
JSR 
JSR 
RTS 



RO , SAVR 
• 3,R0 
PC . APMG 1 
PC, KSUB 
R0,RSTOR 
PC 



;SAVE RECISTERS 
it OF ARCS 
SET INTERFACE 

RESTORE RECISTERS 



. CLOBL XMUL5 



AMULS : 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



RO.SAVR 
• 3 .RO 
PC t APMG 1 
PC , KMULS 
RG , RSTOR 
PC 



;SAVE REEGI 5TERS 
;t OF ARCS 
;SET INTERFACE 

; RESTORE REGISTERS 



. CLOBL KADO 



AADD: 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



RO , SAVR 
• 3 ,R0 
PC , APMG 1 
PC , KADD 
RO . RSTOR 
PC 



SAVE REGISTERS 
t OF ARCS 
SET INTERFACE 

RESTORE REGISTERS 



.CLOBL XMVL 



AMUL: 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



RO.SAVR 
«3 ,RO 
PC i APMG 1 
PC.KMUL 
RO , RSTOR 
PC 



SAVE RECISTERS 
# OF ARGS 
SET INTERFACE 

RESTORE REGISTERS 



.CLOBL 



ASQRT: : JSR 



KSQRT 
RO.SAVR 



;SAVE REGISTERS 
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MOV 
JSR 
JSR 
JSR 
RTS 



t2.R0 
PC , APMC 1 
PC.KSQRT 
RO , RSTOR 
PC 



;# Or ARCS 
;SET INTERFACE 

; RESTORE REGISTERS 



. CLOBL XEXPE 



AEXFE: 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



RO , SAVR 
#2 ,R0 
PC i APMC 1 
PC .JCEXPE 
RO , RSTOR 
PC 



SAVE REGISTERS 
• OF ARCS 
SET INTERFACE 

RESTORE REGISTERS 



.CLOBI XFTR2 



AFTR2: : 



JSR 
MOV 
JSR 
JSR 
JSR 



RO.SAVR 
• 3,R0 
PC, APMC 1 
PC.KFTR2 
RO , RSTOR 



SAVE REGISTERS 
t OF ARCS 
SET INTERFACE 

RESTORE REGISTERS 



RTS 



PC 



. CLOBL KITR1 



AITRl: 



JSR 
MOV 
JSR 
JSR 
JSR 
RTS 



RO , SAVR 
«3 ,R0 
PC. APMC I 
PC.KITRl 
RO , RSTOR 
PC 



SERVICE SUBROUTINES 
SAVE ALL REGSTERS 



SAVR: 



MOV 
MOV 
MOV 
JMP 



R2,-<SF> 
R3.-CSP) 
R4 ,-CSP) 
(RO) 



RESTORE ALL REGISTERS 



t SAVE REGISTERS 
2ft OF ARCS 
SSET INTERFACE 

; RESTORE REGISTERS 



' OMPI N 



rru wrt 
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RSTOR: 



TST 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



tSP>* 
(SP)+ ,R4 
<SP)+,R3 
<SP>+,R2 

t ,R1 
SAVERS , R5 
R0 



;REQ SV MAC1C 
; RESTORE R3 



ttAGIC/l INTERFACE SETUP ROUTINES 



THIS ROUTINE IS CALLED FOR ALL FUNCTIONS WHOSE CALL STATEMENT 
ARGUMENTS ARE OF THE FOLLOWING TYPE: 

( NO ARGUMENT ) 

( VAL ) 

( VAL, VAL > 

( VAL • VAL, VAL ) 

( VAL , VAL , VAL , VAL ) 

WHERE VAL IS ANY INTEGER VALUE. 



APMGl : 



MOV 
TST 
BEQ 
MOV 
ASL 
ADD 



RO , ARGLST 

R0 

2$ 

R0.R1 
Rl 

»ARCLST+2,Rl 



;SET • OF ARCS 
;• OF ARCS 

;IF ZERO, TRANSFER CONTROL WITHOUT CHANCE 
;«2 FOR WORD ALL I CNMENT 

;Rl POINTS TO ONEAFTER BOTTOM OF ARC PTR LIST 



1 S : 



25 



MOV 
MOV 
MOV 
DEC 
BGT 
MOV 
MOV 
RTS 



IMGLST.R2 
R2 ,-<Rt > 
CH5>*, CR2> + 
RO 
1* 

RS,SAVER5 
•ARGLST, R3 
PC 



;R2 POINTS TO THE ARGUMENT LIST C MACIC CALL > 
;POINTER SET UP 
^ARGUMENT SET UP 



;SAVE RS 

; FORTRAN CALL SET UP 



THIS ROUTINE IS CALLED BY FUNCTIONS WHOSE CALL STATEMENT 
ARGUMENTS ARE OF THE FOLLOWING TYPE: 

< ADDR > 

( ADDR, ADDR ) 

( ADDR j ADDR , VAL ) 

WHERE ADDR IS A HOST MEMORY ADDRESS 



;SET ft OF ARGUMENTS 
;TST * OF ARCS 



A PMC 2 : MOV RO. ARGLST 

MOV R0,R1 

ADD »-2,Rl 

BLE II 

DEC -RO 

MOV tMGLST. ARGLST* 4 s SET PTR TO VAL 

MOV <R3>4.,MGLST 

1$: DEC RO 
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BEQ 2$ 

MOV <R5 ARCtST*4 

21: MOV <R3>*,ARCLST*2 

MOV R5.SAVER5 

MOV » ARCLST. R3 

RTS PC 



;XF 1 ARC .NO CHANGE 

; INTERCHANGE ARGUMENT ADDRESSES 

;MAGIC CALL R3 POINTS TO LAST ARC 

; FORTRAN CALL SETUP 

; SAVE RS 



THIS ROUTINE IS CALLED BY FUNCTIONS VHOSE CALL STATEMENT 
ARGUMENTS ARE OF THE FOLLOWING TYPE. 

< ADDR, VAL f VAL ) 

< ADDR , VAL , VAL , VAL > 

WHERE ADDR IS A HOST MEMORY ADDRESS 
AND VAL IS ANY INTEGER VALUE 



AFMG3 : 



It: 



MOV 
MOV 
ASL 
ADD 

MOV 
DEC 
MOV 
MOV 



RO , ARGLST 

R0.R1 

RI 

tARCLST*2,Rl 

•MGLST, R2 
RO 

R2 , -<R1 ) 
CRS)+, (R2 )«■ 



;SET t OF ARCUMENTS 

;*2 FOR WORD ALLICNMENT 

;R1 POINTS TO ONE AFTER THE BOTTOM OF 

; ARC PTR LIST < FORTRAN CALL ) 

;R2 POINTS TO ARC LIST (MAGIC CALL > 

; ARG PTR SET UP 
;ARC SET UP 



DEC RO 

BGT II 

MOV CR5)*,-(R1> 

MOV RS , SAVERS ;SAVER5 

MOV #ARGLST,R5 ; FORTRAN CALL SET UP 

RTS PC 



THIS ROUTINE IS CALLED BY FUNCTIONS WHOSE CALL STATEMENT HAS 
ARGUMENTS OF THE FOLLOWING TYPE. 

< VAL , ADDR ) 

(VAL f ADDR , VAL > 

WHERE ADDR IS A HOST MEMORY ADDRESS 
AND VAL IS ANY INTEGER VALUE 

APMG4 : MOV RO , ARGLST ;SET « OF ARGUMENTS 

ADD i-2.R0 ; CHECK t OF ARCS 

BEQ It ;FOR 2 ARCS 

MOV tMGLST, ARGLST+6 ;SET PTR LIST 

MOV CR5>+,KCLST 

II: MOV <R5>*,ARGLST+4 ;SET ADDRESS VALUE 

MOV tMCLST+2 . ARGLST* 2 

MOV CR5 >*.MGLST*2 

MOV RS , SAVERS ; SAVE RS 

MOV tARGLST ,R3 ; FORTRAN CALL SET UP 
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RTS PC 



.END 



. ML I ST TTM 
. ENABL LC 



;PRODUCE LISTING IN VIDE STYLE. 

; RETA IN LOWER-CASE CHARACTERS AS SUCH. 



ON" 



PROGRAM: 
PART NUMBER: 
VERSION DATE: 
AUTHOR : 
HISTORY: 
DESCRIPTION: 



HSTFNC. VECTOR ADD (REAL OR COMPLEX) 

AUGUST 25. 1982 
CHETANA SUCH 



THIS FORTRAN- CALLABLE HOST FUNCTION CALLS UP AN AP-BASEO 
AP FUNCTION IN ORDER TO PERFORM A "TIME DOMAIN CONVOLUTI 



BETWEEN THE RESPECTIVE ELEMENTS OP TWO AP DATA MEMORY DATA BUFFERS. ONE 
CONTAINS THE SIGNAL AND THE OTHER THE FILTER (MASK). 



.TITLE KCONV - HSTFNC : TIME CONVOLUTION 

. I DENT /VOi/ ; IDENTIFIER FOR THE OBJECT MODULE. 



SUBSTITUTE 6ft SET 



o':fi 

Vvlt-O 
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-108- 



. PACE 

j ESTABLISH ASSEMBLY AND LISTING CONVENTIONS: 



. Nl 1ST TTM ; PRODUCE LISTZNC IN VI DC STYLE . 

. DSABL CBL ; FLAC NON-EXISTENT-SYMBOL REFERENCES AS ERRORS . 

. ENABL LC ; RETAIN LOVER-CASE CHARACTERS AS SUCH. 



.CSECT KCONV ; ESTABLISH A NAMED CSECT. 

; INTERNALLY DEFINED GLOBALIZED SYMBOLS: 
. CLOBL KCONV 



; EXTERNALLY DEFINED GLOBALIZED SYMBOLS: 

Ik? MANAGER'S "FCB EXECUTION" SUBROUTINE. 
;AP MANAGER'S WAIT ROUTINE 

;AP MANAGER'S "FATAL ERROR «-67" EXIT ROUTINE . 
;AP MANAGER'S "FCB CONTROL WORD". 



;AP FUNCTION ID'S REFERENCED: 

CONV « 802. ;ID FOR "TIME CONVOLUTION-. 



.GLOBL KEXFCB 

.CLOBL XVAIT 

.GLOBL MGRM67 

.GLOBL COMCTL 



; SYMBOL DEFINITIONS: 
;NONE 



; TERMINOLOGY: 



FCB - FUNCTION CONTROL BLOCX. READ BY THE AP EXECUTIVE FROM HOST 
MEMORY . 



. PAGE 

;>*HOST FUNCTION "XCONV" 

;THIS HOST FUNCTION CALLS UP A CORRESPONDING AP FUNCTION IN THE AF400. 



:TKIS HOST FUNCTION VERSION ASSUMES THAT SOURCE DATA ALREADY RESIDES IN TWO AP 
; DATA MEMORY DATA BUFFERS , AND THAT THE RESULT DATA WILL BE PLACED IN ANOTHER 
;AP DATA MEMORY DATA BUFFER. 

;THE MAXIMUM MASK < FILTER ) SIZE HANDLED BY THIS ROUTINE IS EIGHT POINTS. IF * 
; F ILTER IS SMALLER , THE REMAINING BUFFER MUST CONTAIN ZEROS. 
; THE TWO POINTS AT BOTH ENDS OF RESULT VILL CONTAIN ZEROS. 
; THE CORRESPONDING "TIME CONVOLUTION" AP FUNCTION SHOULD BE 

; REFERENCED FOR FURTHER INFORMATION. t 



OMFI 



. **** sr 
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; CALL FROM FORTRAN VIA: 

; SU9ROUTI NE CALL: CALL XCONV( DBIa, DB I b , DBIc ) 

i OR INTECER FUNCTION CALL , AS: I ERR « KCONV ( DBIa, DB I b , DBIc ) 

VHERE: 

OB I « • ID OF AP DATA BUFFER TO HOLD RESULT DATA. 

"DBI* M MUST BE A SINGIE-VORD INTECER VARIABLE OR CONSTANT. 
DBF NEED NOT HAVE BEEN PREVIOUSLY ALLOCATED. 

IF NOT ALREADY ALLOCATED # DBF VILL BE ALLOCATED; SIZE WILL EQUAL 
THAT OF SOURCE DATA BUFFERS. 

IF RESULT DBF VAS PREVIOUSLY ALLOCATED* IT MUST BE OF SIZE EQUAL 
OR GREATER THAN SOURCE DATA BUFFERS. 
DB lb b ID OF AP DATA BUFFER HOLDING SIGNAL DATA SET. 
i "DB lb" MUST BE A SINCLE-VORD INTEGER VARIABLE OR CONSTANT. 

; DBF MUST HAVE BEEN PREVIOUSLY ALLOCATED IN AP DATA MEMORY. 

; DBIc - ID OF AP DATA BUFFER HOLD INC MASK < FILTER ) DATA SET. 

; -DBIc" MUST BE A SINGLE-VORD INTEGER VARIABLE OR CONSTANT, 

i DBF MUST HAVE BEEN PREVIOUSLY ALLOCATED IN AP DATA MEMORY. 

; IF LESS THAN 6 PTS..TKE REMAINING BUFFER SHOVLO BE ZEROED, 

i RETURNS TO FORTRAN WITH: 

; ALL ARGUMENTS RETURNED AS RECEIVED. 

; FUNCTION EXECUTION "IN PROGRESS" OR "COMPLETE" * DEPENDING UPON CURRENT 



AP MANAGER "RETURN" STATUS. 
IF CALLED AS A FORTRAN FUNCTION, THE VALUE RETURNED VILL BE AS SPECIFIED 
" FOR REGISTER "R0", RETURNED FROM AN ASSEMBLY- LANGUAGE CALL. 

UPON ERROR, A STANDARD AP MANAGER ERROR EXIT VILL BE TAXEN. 



;CALL FROM PDP-11 ASSEMBLY LANGUAGE VIA: 

; A FORTRAN-COMPATIBLE CALL SEQUENCE. 



; RETURNS TO CALL+1 : 



(ALVAYS) 



ALL CONDITIONS AS DESCRIBED FOR THE FORTRAN FUNCTION CALL FORK . ABOVE. 
RO - STATUS VALUE . (DEFINED BY AP MANAGER . ) 

"KCONV" DEFINES NO UNIQUE VALUES. 
RJ m UNDEFINED. 
R2 - UNDEFINED. 
R5 - UNDEFINED. 



* ;UPON ERROR . WHEN CALLED FROM FORTRAN OR ASSEMBLY LANGUACE: 

; IF A FATAL ERROR OCCURS DURING EXECUTION OF THIS HOST FUNCTION OR DURING 

; EXECUTION OF A ROUTINE VHICH IT (IN TURN) CALLS C SUCH AS THE AP MANAGER 

, ; OR AP DRIVER > , THE AP MANAGER'S FATAL ERROR EXIT ROUTINE VILL BE CALLED. 



CMH 



SUB3TJ7U k Z 
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1* : 



CMFB 
BNE 

TST 

TST 
BNE 

JSR 

CLR 

MOV 

MOV 
MOV 
MOV 



CR5>, #3 
ERRORX 

<R5>* 

FCBDON 
It 

PCKVAIT 
FCBDON 

COMCTL, FCBCTL 

8<RS)+, FCBARL 
8<R5>+, FCBARL+4 
«CR3)*, FCBARL+8 



; CHECK FOR PROPER NUMBER OF ARGUMENTS . 

;IF NOT CORRECT NUMBER . HANDLE AS A FATAL ERROR. 

; STEP POINTER AHEAD TO FIRST ARGUMENT ADDRESS. 

.-TEST FOR COMPLETION OF A PREVIOUS OPERATION. 

;A ZERO "DONE M FLAG INDICATES PREVIOUS OPERATION 

S STILL IN PROGRESS . 

;VAIT FOR THE AP TO FINISH PROCESSING 

.-REINITIALIZE THE "DONE " FLAG . 

; RETRIEVE AP MANAGER 1 5 COMMON CONTROL WORD IN 
; ORDER TO UTILIZE CURRENTLY-SELECTED OPTIONS. 
; PLACE IT IN FCB'S CONTROL WORD. 

;MOVE RESULT DATA BUFFER ID "A" INTO FCB 
; ARGUMENT LIST. 

; STEP HOST MEMORY ADDRESS POINTER AHEAD . 

;MOVE SOURCE DATA BUFFER ID "B M INTO FCB 
ARCUMENT LIST. 

STEP HOST MEMORY ADDRESS POINTER AHEAD. 

;MOVE SOURCE DATA BUFFER ID "C" INTO FCB 
ARGUMENT LIST. 



(INCREMENTING R3 , ALTHOUGH UNNECESSARY , SAVES 
EXECUTION TIME AND ONE MEMORY VORO . > 



MOV 



JMP 



MCRARG: BR 



.VORD 
.WORD 
;THI5 



tMGRARG , RS 



KEXFCB 



21 



FCBBLK 
STATUS 
LABEL MARKS THE 



SET UP ADDRESS OF ARGUMENT LIST FOR CALL TO AP 
MANAGER . 

CALL UP THE AP MANAGER TO PROCESS THE FCB . 

A DIRECT BRANCH IS THE EQUIVALENT OF A "JSR" , 
FOLLOWED BY AN "RTS PC". 

"KEXFCB- WILL RETURN ITS STATUS VALUE IN 
PDP-11 REGISTER RO AS VELL AS IN LOCATION 
"STATUS". 

BRANCH AROUND ARGUMENT LIST. (THIS INSTRUCTION 
PROVIDES "NUMBER OF ARGUMENTS" COUNT FOR AP 
MANAGER ; THE BRANCH IS NEVER ACTUALLY TAKEN.) 
ADDRESS OF FCB. 
ADDRESS FOR RETURNED STATUS. 
END OF THE ARCUMENT LIST. 



ERROR X: JMP 



MCRM6 7 



TAKE AN AP MANAGER STANDARD FATAL ERROR EXIT. 
RETURN STATUS CODE -*7 TO INDICATE w IMPROPER 
NUMBER OF ARGUMENTS IN PARAMETER L I ST M . 



STATUS: .VORD 0 
. PACE 

FUNCTION CONTROL BLOCK: 



; TEMPORARY STORAGE LOCATION FOR RETURNED AP 
; MANAGER STATUS. 



WO 



FCBBLK : 
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FCBID. 
FCBCTL : 
FCBDON: 
FCBLNK : 



FC8PLT: 
FC8NRG: 
FCBLEN: 

FCSARL . 



.VORD 
.WORD 
.WORD 
. VORD 
.WORD 

.VORD 
.VORD 
.VORD 

.VORD 
.VORD 

,VORD 
.VORD 

.WORD 
. VORD 



CONV 



;ID OF THE AP FUNCTION. 
; CONTROL VORD. 

; DONE FLAG . INITIALIZED TO "DONE '* STATE. 
; (HICK-ORDER. ) HOST MEMORY ADDRESS LINK TO 
; CLOW-ORDER. ) FCB IN HOST MEMORY . (NONE.) 

;FCB PARAMETER LIST TYPE. < DATA BUFFER ID'S. > 

; NUMBER OF ENTRIES IN ARGUMENT LIST. 

; LENGTH Or ARGUMENT LIST IN HOST MEMORY WORDS. 

.-RESULT DATA BUFFER ID M A w ARGUMENT. 

; FIRST VORD - DBF ID; SECOND VORD » 0. 

; SIGNAL DATA BUFFER ID "B* ARGUMENT . 

; FIRST VORD » DBF ID; SECOND VORD - 0. 

; FILTER DATA BUFFER ID "C M ARGUMENT. 

i FIRST VORD • DBF ID; SECOND VORD a 0. 



.END 



TION 



PROGRAM: 
PART NUMBER: 
VERSION DATE: 
AUTHORS : 
HISTORY: 
DESCRIPTION: 



APFNC: TIME CONVOLUTION 

AUGUST 25, 19 82 
CHETANA BUCK 

THIS AP-BASED AP FUNCTION PERFORMS A TIME DOMAIN CONVOLU 



OF A SIGNAL WITH A FILTER OF MAXIMUM SIX POINTS 

THIS AP FUNCTION IS NORMALLY CALLED UP BY THE AP EXECUTIVE, WHICH 
RETRIEVES THIS AP FUNCTION'S ID NUMBER FROM A FUNCTION CONTROL BLOCK 
READ FROM HOST MEMORY. 



TITLE APFNC: TIME CONVOLUTION 

NAME QCONV, 001 ; NAME AND VERSION FOR THE OBJECT MODULE . 
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PACE 

RADIX H ;DEFAULT TO HEXADECIMAL RADIX. 

; INTERNALLY DEFINED GLOBALIZED SYMBOLS: (ICLOBL) 
; ENTRY POINTS; 

» NONE 

; SUBROUTINES: 
; NONE 

i GENERAL SYMBOLS 

;NONE 

; DATA MEMORY LABELS: 

;NONE 

; EXTERNALLY DEFINED GLOBALIZED SYMBOLS: (EGLOBL > 

ENTRY POINTS : 



;NONE 

; SUBROUTINES: 

EGLOBL PLS1CE, ADD 1 1 , 
; GENERAL SYMBOLS: 

; NONE 

; DATA MEMORY LABELS: 

;NONE 

; SYMBOL DEFINITIONS: 
;NONE 

; TERMINOLOGY : 
;NONE 



FLSHAP » GETLZC , NRMCND 



Vvli'O 



ITU Of/ 



PAGE 
PMORG 



; START OF RELOCATABLE CODE IN PROGRAM MEMORY. 



WAP FUNCTION "OCONV 

This AP function performs the tint convolution. 



Call with: par*a«t«r list typ« 

parameter list length 

word 9 argument tl 
word 10 Argument #1 

word 11 argument #2 
word 12 trgaaint 12 

word 13 argument #3 
word 14 argument 13 



- I. 

m 6. 



numbtr of arguments 



* 3. 



• ID of result Data Buffer "A" 

• Ignored. 

- ID of source Data Buffer U B" . 
m Ignored. 

• ID of source Data Buffer M C". 
« Ignored. 



Eaits to AP Executive'. "Fatal Abort- Service: 

If an error is found by AP Service Subroutine 'FL51CE* 



PAGE 



; DEFINITION OF THE FUNCTION ID FOR THE AP EXECUTIVE FUNCTION TABLE: 
FUNC %D8 02, OCONV ; FUNCTION ID AND ENTRY POINT NAME. 



PCLRAC: EQU 
FCONVS: .EQU 
PCONVT: EQU 



%D32 
AO 8 2 
%D83 



; CLEAR ACC IN PIPE PAC ID. 

; CONVOLUTION (INITIAL) PAC ID. 

CONVOLUTION < ITERATIVE) PAC ID. 



OCONV : 



JSR 



JSR 

SET 

SETR 

STREGI 

5TREG 

SET 

SET 

STREGD 
STREGD 



PLS1CE 



ADO II 

R2-R8+1 
R3-0 

R3 ,R2 
R3 ,R2 
R2.R2-I 
R2«R2*R9 
R3.R2 
R3 ,R2 



CO CKECX CORRECTNESS OF VALUES IN FCB, 
FIND SOURCE DATA BUFFERS, 
ALLOCATE RESULT DBF IF NECESSARY , 
SET UP ARGUMENTS FOR A FUNCTION ADDR CALL. 
UPON ERROR , EXIT THROUGH AP EXECUTIVE'S 
FATAL ABORT ROUTINE. 

FORM AND STORE RESULT BEX AND NSN 

PTR TO FIRST RESULT DATA 

; 

;VRITE ZERO IN FIRST TWO PLACES 



;PTR TO LAST+1 RESULT DATA 
;VRITE ZERO IN LAST TWO PLACES 



SUBSTITUTE SHEET 



Q>C?I_ 
^A'AT' 
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" WOVE RECSCL , R3 ; CLEAR SCL/L2C REGISTER 

SET R10-R9-* ; COUNT RECISTER 

SET Rll«R7-l ; INITIALIZE SIGNAL DATA POINTER 

SET R13-R8+2 ; INITIALIZE RESULT DATA POINTER 

AGAIN: SET R12«R4*l ; INITIALIZE FILTER DATA POINTER 

PIPE PCLRAC.SCLO, LZCOFF ; CLEAR PIPE ACCUMULATORS 

PAD R3»R3 

PAD ;NOT USED 

PAD ;NOT USED 

PAD iNOT USED 

SETR nimi 

PIPE PCONV5.SCL0. LZCOFF ;CONV < FOUR POINTS ) 

PAD R11«R11*R2,S1 
PAD ' RI 1«R11+R2,S2 

PAD RX2.RI2.S3 

PAD R12«R12*R2,S4 

PIPE PCONVT.SCL0.LZC2 ; REMAINING POINTS CONV 

PAD Rtl-R1I*R2,S1 

PAD Rl 3«R1 3+ 1 , D2R 

PAD R12.R12+R2.S3 



PAD RI2»R12*R2,S« 

SET Rll»Rlt-5 ; REINITIALIZE SIGNAL DATA PTR 

DBNZ RIO, AGAIN j REPEAT UNTILL ALL DATA DONE 

JSR FLSHAP ; FLUSH PIPELINE 

JSR CETL2C ; UPDATE NSN OF RESULT 

JMP NRMCND iGO TO NORMALIZE THE RESULT DATA, IF FCB CONTROL 

; BIT INDICATES SUCH REQUIREMENT. 
; A DIRECT BRANCH IS THE EQUIVALENT OF A ** «J SR " 
; FOLLOWED BY AN "RTN M . 

END 



-115- 



.NLIST TTM 
. ENABL LC 



; PRODUCE LI STING IN WIDE STYLE . 

; RETAIN LOWER-CASE CHARACTERS AS SUCH. 



PROGRAM : 
PART NUMBER: 
VERSION DATE: 
AUTHOR: 
HISTORY : 
DESCRIPTION: 



H5TFNC : EDCE PRUNING 

SEPTEMBER 1 « 1982 
CHETANA BUCH 



THIS FORTRAN-CALLABLE HOST FUNCTION CALLS UP AN AP-8ASED 
AP FUNCTION IN ORDER TO PERFORM "EDGE PRUNING" 



.TITLE XPHUN - HSTFNC : EDCE PRUNING 
I DENT /VOW IDENTIFIER FOR THE OBJECT MODULE. 

.PACE 

ESTABLISH ASSEMBLY AND LISTING CONVENTIONS: 



. NL 1ST TTM 

. DSABL GEL 

.ENABL LC 

.CSECT KPRUN 



PRODUCE LISTING IN VIDE STYLE . 

FLAG NON-EX I STENT- SYMBOL REFERENCES AS ERRORS. 
RETAIN LOWER-CASE CHARACTERS AS SUCH. 

; ESTABLISH A NAKED CSECT. 



; INTERNALLY DEFINED GLOBALIZED SYMBOLS: 
. GLOBL KPRUN 



; EXTERNALLY DEFINED GLOBALIZED SYMBOLS: 



. GLOBL XEXFCB 

. GLOBL KVAIT 

.GLOBL MCRM6 7 

. GLOBL COMCTL 



AP MANAGER'S "FCB EXECUTION" SUBROUTINE. 
AP MANAGER * S WAIT ROUTINE 

AP MANACER " S "FATAL ERROR #-*7" EXIT ROUTINE . 
AP MANAGER'S "FCB CONTROL WORD". 



;AP FUNCTION ID'S REFERENCED: 

PRUN . 80 4. :ID FOR "VECTOR ADD (REAL OR COMPLEX > ' 



;SY«BOL DEFINITIONS: 
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;NONE 
;TERNINOLOCY: 

; FCB - FUNCTION CONTROL BLOCK, READ BY THE AP EXECUTIVE FROM HOST 

; MEMORY . 

.PACE 

;>*HOST FUNCTION -KPRUN** 

;THIS HOST FUNCTION CALLS UP A CORRESPONDING AP FUNCTION IN THE AP400 

;THIS HOST FUNCTION VERSION ASSUMES THAT SOURCE DATA ALREADY RESIDES IN SEVEN A? 
;DATA MEMORY DATA BUFFERS. AND THAT THE PRUNING WILL BE DONE ON DATA IN THE FOUR 
TH 

;AP DATA MEMORY DATA BUFFER. 

;THE CORRESPONDING "EDGE PRUNING" AP FUNCTION SHOULD BE 
.REFERENCED FOR FURTHER INFORMATION. 

:CALL FROM FORTRAN VIA . 

; SUBROUTINE CALL: CALL KPRUN C DBIa. DBIb , . . . DBIg ) 



; OR INTEGER FUNCTION CALL, AS: I ERR - KADD C DB I * , DB I* . . . . DBIg > 

;VHERE: 

DBli.DBIb.D8Ie. . .DBIg • 

ID OF AP DATA BUFFERS WHICH HOLD RESULT EDGE 
INFORMATION OF SEVEN CONSECUTIVE XMACE LINES. OBId WILL HOLD 
THE INFORMATION WHICH WILL BE THE FOCUS OF THIS PRUNER. 
. "D8Is" MUST BE A SINGLE-WORD INTEGER VARIABLE OR CONSTANT. 
DBF MUST HAVE BEEN PREVIOUSLY ALLOCATED. 

RETURNS TO FORTRAN WITH: 

ALL ARGUMENTS RETURNED AS RECEIVED. 

FUNCTION EXECUTION "IN PROGRESS- OR "COMPLETE". DEPENDING UPOM CURRENT 

AP MANAGER -RETURN" STATUS. 
IF CALLED AS A FORTRAN FUNCTION. THE VALUE RETURNED WILL BE AS SPECIFIED 
FOR REGISTER "R0", RETURNED FROM AN ASSEMBLY-LANGUAGE CALL. 

UPON ERROR , A STANDARD AP MANAGER ERROR EXIT WILL BE TAKEN. 

;CALL FROM PDP-11 ASSEMBLY LANCUACE VIA: 

A FORTRAN-COMPATIBLE CALL SEQUENCE. 




WO 
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; RETURNS TO CALL*l I (ALWAYS) 

; ALL CONDITIONS AS DESCRIBED FOR THE FORTRAN FUNCTION CALL FORM, ABOVE . 

; RO - STATUS VALUE. (DEFINED BIT AP MANAGER.) 

; "KFRUN" DEFINES NO UNIQUE VALUES . 

Ri - UNDEFINED. 
; R2 « UNDEFINED. 

; R5 • UNDEFINED. 



;UPON ERROR, WHEN CALLED FROM FORTRAN OR ASSEMBLY LANGUAGE: 

IF A FATAL ERROR OCCURS DURING EXECUTION OF THIS HOST FUNCTION OR DURING 
; EXECUTION OF A ROUTINE VHICH IT (IN TURN) CALLS (SUCH AS THE AP MANAGER 

i OR AP DRIVER). THE AP MANAGER'S FATAL ERROR EXIT .ROUTINE WILL BE CALLED. 

;>- 

:page 

KPRUN: 

; CHECK FOR PROPER NUMBER OF ARGUMENTS. 
;IF NOT CORRECT NUMBER, HANDLE AS A FATAL ERROR • 

i STEP POINTER AHEAD TO FIRST ARGUMENT ADDRESS . 

;TEST FOR COMPLETION OF. A PREVIOUS OPERATION. 
;A ZERO M DONE w FLAG INDICATES PREVIOUS OPERATION 
; STILL IN PROGRESS. 



CMPB <R5>, t? 

BNE ERRORX 

TST <R3>* 

TST FCBDON 

BNE IS 



JSR 



PCXUAIT 



tt ; 



CLR 


FCBDON 




MOV 


COMCTL , 


FCBCTL 


MOV 


«(R3>+. 


FCBARL 


MOV 




FCBARL *4 


MOV 


•(R5>+. 


FCBARL** 


MOV 


9(R3)+, 


FCBARL* 1 


MOV 


«(R3>*, 


FCBARL* 1 


MOV 


S(R5)+, 


FCBARL* 2 


MOV 


e<R3>+, 


FCBARL+2 



;VAIT FOR THE AP TO FINISH PROCESSING 
REINITIALIZE THE "DONE" FLAG. 

RETRIEVE AP MANAGER 1 S COMMON CONTROL WORD IN 
ORDER TO UTILIZE CURRENTLY -SELECTED OPTIONS . 
PLACE IT IN FCB'S CONTROL WORD. 

MOVE RESULT OATA BUFFER ID "A" INTO FCB 
ARGUMENT LI ST. 

STEP HOST MEMORY ADDRESS POINTER AHEAD. 

;MOVE SOURCE DATA BUFFER ID "B" INTO FCB 
ARGUMENT LIST. 

STEP HOST MEMORY ADDRESS POINTER AHEAD. 

;MOVE SOURCE DATA BUFFER ID "C" INTO FCB 
ARGUMENT LIST. 

jMOVE SOURCE DATA BUFFER ID "D" INTO FCB 
ARGUMENT LIST. 

jMOVE SOURCE DATA BUFFER ID "E" INTO FCB 
ARGUMENT LIST. 

;MOVE SOURCE DATA BUFFER ID U F H INTO FCB 
ARGUMENT LIST. 

;MOVE SOURCE DATA BUFFER ID "C" INTO FCB 
ARGUMENT LIST. 

(INCREMENTING RS . ALTHOUCH UNNECESSARY , SAVES 
EXECUTION TIME AND ONE MEMORY WORD.) 
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HOV 



JKP 



nCRARG : BR 



2* : 



.WORD 
.WORD 
;THIS 



•MGRARG , R5 



XEXFCB 



2» 



FCBBLK 
STATUS 



SET UP ADDRESS OF ARGUMENT LIST FOR CALL TO AP 
MANAGER . 

CALL UP THE AP MANAGER TO PROCESS THE FCB . 

A DIRECT BRANCH IS THE EQUIVALENT OF A "JSR", 
FOLLOWED BY AN M RTS PC". 

"XEXFCB- VILL RETURN ITS STATUS VALUE IN 
PDP-11 REGISTER R0 AS WELL AS IN LOCATION 
-STATUS". 

BRANCH AROUND ARCUMENT LIST. (THIS INSTRUCTION 
PROVIDES "NUMBER OF ARGUMENTS" COUNT FOR AP 
MANAGER j THE BRANCH IS NEVER ACTUALLY TAXEN. > 

ADDRESS OF FCB. 

ADDRESS FOR RETURNED STATUS. 



LABEL MARKS THE END OF THE ARCUMENT LIST. 



ERRORS: JMP MGRM6 7 



;TAXE AN AP MANAGER STANDARD FATAL ERROR EXIT. 
; RETURN STATUS CODE -«7 TO INDICATE "IMPROPER 
; NUMBER OF ARGUMENTS IN PARAMETER LIST" . 



STATUS: .WORD 0 
. PACE 

i FUNCTION CONTROL BLOCK: 



;TEMPORARY STORAGE LOCATION FOR RETURNED AP 
; MANAGER STATUS . 



FCBBLX: 

FCB ID: .WORD FRUN 



;IO OF TKE AP FUNCTION. 



FCBCTL: 
FCBDON: 
FCBLNX: 



FCBPLT: 
FCSNRG : 
FCBLEN: 

FCBARL: 



.VORD 
.WORD 
.VORD 
.VORD 

.VORD 
.VORD 
.VORD 

.VORD 
.VORD 

.VORD 
.VORD 

.VORD 
.VORD 

.VORD 
.VORD 



0 
I 
0 
0 

I 

7 

14. 

0 
0 

0 
0 

a 
o 

o 

0 



; CONTROL VORD. 

; DONE FLAG. INITIALI2ED TO "DONE" STATE. 

; (HIGH-ORDER.) HOST MEMORY ADDRESS LINX TO NE X* 

;(LOV-ORDER.) FCB IN HOST MEMORY. (NONE.) 

;FCB PARAMETER LIST TYPE. (DATA BUFFER ID'S.) 

; NUMBER OF ENTRIES IN ARGUMENT LIST. 

; LENGTH OF ARCUMENT LIST IN HOST MEMORY WORDS. 

j RESULT DATA BUFFER ID "A" ARGUMENT. 

; FIRST VORD - DBF ID; SECOND VORD * 0. 

; SOURCE DATA BUFFER ID "B" ARGUMENT. 

5 FIRST VORD • DBF ID; SECOND VORD - 0. 

; SOURCE DATA BUFFER ID "C" ARGUMENT. 

; FIRST VORD - DBF ID; SECOND VORD * 0. 

; SOURCE DATA BUFFER ID "D M ARCUMENT. 

; FIRST VORD - DBF ID; SECOND VORD * 0. 



.WORD 
.VORD 



.WORD 
.VORD 



; SOURCE DATA BUFFER ID "E" ARGUMENT. 

; FIRST VORD • DBF ID; SECOND VORD - 0. 

; SOURCE DATA BUFFER ID "F" ARGUMENT. 

; FIRST VORD - DBF ID; SECOND VORD - 0. 



SUBSTITUTE SHEET 
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.WORD 
.WORD 

. END 



; SOURCE DATA BUFFER ID "G" ARGUMENT. 

; FIRST WORD - DBF ID; SECOND WORD - 0. 



PROGRAM: 
PART NUMBER: 
VERSION DATE : 
AUTHORS : 
HISTORY: 
DESCRIPTION: 



APFNC: EDGE PRUNING 

SEPTEMBER 1, 1?B2 
CHETANA BUCK 



THIS AP-BASZD AP FUNCTION PER FORMES EDGE PRUNING . 
SEVEN DATA BUFFERS CONTAINING EDGE INFORMATION OF SEVEN 
CONSECUTIVE IMAGE DATA LINES ARE REQUIRED. 



THIS AP FUNCTION IS NORMALLY CALLED UP BY THE AP EXECUTIVE, VWICH 
RETRIEVES THIS AP FUNCTION'S ID NUMBER FROM A FUNCTION CONTROL BLOCX 
READ FROM HOST MEMORY. 



TITLE APFNC: EDGE PRUNING 

NAME QFRUN , 001 ; NAME AND VERSION FOR THE OBJECT MODULE. 



SUBSTITUTE SHEET 
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page 

radix h ;default to hexadecimal radix. 

; internally defined globalized symbols : ciglobl) 
; entry points: 

2 NONE 

; SUBROUTINES : 

;NONE 

; GENERAL SYMBOLS 

;NONE 

; DATA MEMORY LABELS: 

; NONE 

; EXTERNALLY DEFINED GLOBALIZED SYMBOLS: ( EC LOBL ) 

i ENTRY POINTS: 



;NONE 

SUBROUTINES : 

EGLOBL PLCHK1, PLD8F, FTLABT , NRMCNO 

GENERAL SYMBOLS: 

;NONE 

; DATA MEMORY LABELS : 

;NONE 

; SYMBOL DEFINITIONS: 
;NONE 

; TERMINOLOGY : 
■ NONE 




n\j o*tt 
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PAGE 

PMORG j START OF RELOCATABLE CODE IN PROGRAM MEMORY. 

;>+AP FUNCTION "QPRUN" 

; Thif AP Fonchon scans the data in DBId to find odd itro crossings i results 

; fron OEOGE 3 and delttts any even zero crossings in the vicinity of three pis< 
is . 

; Call with: parameter list type * 1, numbar of it gumen t % » 7. 

; parameter list length ■ 14. 

word 9 argument #1 « ID of result Data Buffer •A", 

word 10 erguaent #1 ■ Ignored. 

word 11 argument 42 ■ ID of source Data Buffer " B " . 

; word 12 argument #2 « Ignored. 

; word 13 argument 43 * ID ef eource Data Buffer **C N . 

; word 14 argvment 43 « Ignored. 

; wcrd 15 argument 44 - ID of source Data Buffer "D M . 

word 16 argument #4 » Ignored. 

word 17 argument 45 « ID of source Data Buffer "E". 

; word 18. argument #5 * Ignored. 



word 19 argument 46 

word 20 argument 46 

word 21 argument 47 

word 22 argument 47 



- ID of source Data Buffer M F " . 
« Ignored. 

i 

• ID of source Data Buffer »C". 

- Ignored. 



; Esits to AP Eiecutive's "Fatal Abort" Service: 

; If an error if found by AP Service Subroutine 'PLCHXl'or * PLDBF 1 

;>- 



PAGE 

;DIFINITION OF THE FUNCTION ID FOR THE AP EXECUTIVE FUNCTION TABLE: 



FUNC 



%D806, QPRUN 



; FUNCTION ID AND ENTRY POINT NAME. 



QPRUN: 



SETR 
SETR 
SETR 
JSR 



Rl«l 
R2-7 
R3«%D14 
PLCHXl 



;SET UP FOR PLCHK1 CALL 



;GO CHECX CORRECTNESS OF VALUES IN FCB , 

? FIND SOURCE DATA BUFFERS. 

; ALLOCATE RESULT DBF IF NECESSARY, 

; SET UP ARGUMENTS FOR A FUNCTION ADDR. CALL. 



SUBSTITUTE SHEET 



OMPI 
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JMP 



FTLABT 



; UPON ERROR, EX XT THROUCH AP EXECUTIVE'S 
; FATAL ABORT ROUTINE - 



FETCH: 



SETR 

JSR 

JMP 

SET 

PUSH 

0BK2 



RlS-7 

PLOBF 

FTLABT 

Rl.RI+l 

Rl 

R 15, FETCH 



ARC COUKT 
FETCH DBF ADDR 

POINT TO FIRST DATA WORD 
SAVE ON STACK 



POP 
POP 
POP 
POP 



Rl4 
R13 
R12 
RU 



;Rl4-->DBIg 
;R13 — >DSIf 
;R13— >D8Xt 
; R 1 1 > DB I d 



HA IN LINE. 



SAVE: 



SETR 
SETR 
POP 

STRECI 
DBNZ 



R3 -STORE 
R<«3 

Rl 

Rl ,R3 
R4 * SAVE 



;SAVE OTHER A DOR IN STORE 



SETR 



Rl-0 



; COUNT POINTER 



NEXT: LORECI R3.R11 

SET R4-R3 

SET R4-R4 'AND'*H3D 

SKIPNE R4'XOR*%K30 



GET DATA INTO R3 
COPY IN R4 
CHECK FOR CORNER 



JMP CORNER 

SET R4.R3 

SET R4-R4'AND*%K39 

5XIPNE R4'XOR f %H3» 

JMP HORODD 

SET R4-R3 

SET R4«R4 4 AND'%H33 

SKIPNE R4 'XOR*%K3S 

JMP VEROOO 



i ODD KORZ CODE 



iODD VERT CODE 



DONE: 



SET 
DBNZ 



R1«R1+1 
R2,NEXT 



; UPDATE POINTER 



JMP 



NRMCNO 



i RETURN TO AP EXEC. 



RTN 



CORNER: SETR 



R15 — 1 



; FLAG FOR CORNER PIXEL 



HORODD: SETR 
SETR 
SET 



R4--1 

R5-3 

R6-R21 



DIRECTION FLAG 
COUNT 

POINTER IN FORWARD DIRECTION 



CHK: LDRECl 
CKXt: SET 

SKIPNE 



R7,R6 ; FETCH DATA 

R8.R7 ;COPY IT 

R8'XOR'%H3A ; EVEN HORZ POSITIVE STRONG CODE 



ompi 



SUS5TITEJTE PiHFFT 



WU U4/UAiSl<£ 
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JMP ZEROH 

SET R8-R7 

SK1PNE RB'XOR'fcHSE 

JMP ZEROH 

SKIPLT R4-R4 

JMP OPP 

DBNZ RS.CHX 



REV: 



CHK2: 



OPP: 



SETR 

SETR 

SET 

LDREGD 

JMP 

DBNZ 

SXIPLT 

JMP 

SETR 

JMP 



R4«0 
R5*3 

Ri-nn-i 

R7 , R& 
CHXl 

R5 ,CHX* 

R15-R15 

DOME 

RI3-0 

VEROOD 



i EVEN CORNER STRONC CODE 

; CHECK DIRECTION 
; REPEAT 

; REVERSE DIRECTION FLAG 
; COUNT 



ZEROH . 



SETR 

SKIPLT 

JMP 

SET 

STREC 



R7«0 

R4.R4 

LETT 

R6-R4-1 

R7,R& 



; KI LL THE EVEN CROSSING PRESENT 



;CORRECT POINTER 





JMP 


REV 


; CHECK IN OTHER DIRECTION 


LEFT: 


STREC 


R7 ,R 6 






SKIPLT 


R15-R13 






JMP 


DONE 






SETR 


R15-0 




VERODD: 


SETR 


R4 — I 


;DIRECTION FLAG 




SETR 


R5«3 


l COUNT 




SET 


R4-H12 




REPEAT: 


SET 


Rd«R4+Rl 


;PTR TO CORRES WORD IN ADJECENT 


CHK3 : 


LDREC 


R7.R* 


; FETCH DATA 




SET 


RB-R7 


;CQPY IT 




SKIFNE 


RB»XOR'%H36 


; EVEN VERT POSITIVE STRONG CODE 




JMP 


ZEROV 






SET 


R8.R7 






SKIFNE 


RB ' XOR *%H3E ; EVEN CORNER STRONC CODE 




JMP 


ZEROV 






DBNZ 


RS ,TEST 






SXIPLT 


R4»R4 


CHECK DIRECTION 




JMP 


DONE 




REVt : 


SETR 


R4.0 , 


FLAG FOR REVERSE DIRECTION 




SETR 


R5-3 


COUNT 




SETR 


R9 .STORE ; 


FETCH OTHER ADDR 




LDREGI 


R*,R7 


t 




JMP 


REPEAT 




TEST: 


SET 


R7-R5 






SKIPEQ 


R7'XOR'%H2 





SUDC7ETU7S SHEET 
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JMP 


THIRD 






SK IPLT 


R4 *R4 






JKP 


RE V2 






SET 


R6.R13 






JMP 


REPEAT 


;PTR TO NEXT LINE 


THIRD : 


SK IPLT 


R4"R4 








fir v ^ 






SET 


R6 «R 1 4 






JMP 


REPEAT 


• PTR TO THIRD LIN? 


REV2: 


LDREGI 


R*,R9 






JMP 


REPEAT 




REV3 : 


XOREC1 


R4 ,R9 






JMP 


REPEAT 




ZEROV: 


SETR 


R7-0 


; K I LL THE EVEN ZERO CROSSING 




STREC 


R7.R< 






SKI PIT 


R4.R4 






JMP 


DONE 






JMP 


REVl 


; CHECK IN REVERSE DIRECTION 


STORE ; 


OS 


0 


; STORE FOR BUFFER ADDRESSES 




OS 


0 






OS 


0 





END 



.NLIST TTM 
. ENABL LC 



;PRODUCE LISTING IN WIDE STYLE. 

;RETA IN LOVER-CASE CHARACTERS AS SUCH. 



FERS 

; 

ASK. 



HSTFNC : EDGE DETECTION FOR RAW IMAGE 

SEPTEMBER 13, 1982 
CHE TANA BUCK 



PROGRAM: 
PART NUMBER: 
VERSION DATE: 
AUTHOR: 
HISTORY: 

DESCRIPTION: THIS FORTRAN-CALLABLE HOST FUNCTION CALLS UP AN AP-BASED 

AP FUNCTION IN ORDER TO PERFORM "EDGE DETECTION" 
OPERATION BETWEEN THE RESPECTIVE ELEMENTS OF TWO AP DATA MEMORY DATA 8UF 

WHICH CONTAIN THE VARIOUS CONVOLUTION RESULTS OF THE LINE IMAGE WITH A M 



.TITLE KHOR2 - HSTFNC: EDGE DETECTION 

. I DENT /V01/ ; IDENTIFI ER FOR THE OB JECT MODULE . 



SUBSTITUTE SHEET 
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.PACE 

; ESTABLISH ASSEMBLY AND LISTINC CONVENTIONS: 

;PRODUCE LISTING IN VIDE STYLE . 

; FLAG NON-EX I STENT-SYMBOL REFERENCES AS ERRORS . 
;RETAIN LOWER-CASE CHARACTERS AS SUCH. 

.CSECT KHORZ ESTABLISH A NAMED CSECT. 

; INTERNALLY DEFINED CLOBAL I ZED SYMBOLS: 
. CLOBL KHORZ 



. NL 1ST TTM 
.DSABL CBL 
. ENABL LC 



; EXTERNALLY DEFINED GLOBALIZED SYMBOLS: 



. CLOBL 
.CLOBL 
.CLOBL 
. CLOBL 



KEXFCB 
KVAIT 
MGRM6 7 
COMCTL 



;AP MANAGER'S 
;AP MANAGER *S 
iAP MANAGER 1 S 
;AP MANAGER'S 



"FCB EXECUTION- SUBROUTINE. 
WAIT ROUTINE 

"FATAL ERROR *-47" EXIT ROUTINE. 
"FCB CONTROL WORD" • 



;AP FUNCTION ID'S REFERENCED: 

HORZ« AD820. ilD FOR "EDCE DETECTION" 



; SYMBOL DEFINITIONS: 
;NONE 

; TERMINOLOGY: 

; FCB - FUNCTION CONTROL BLOCK. READ BY THE AP EXECUTIVE FROM HOST 

\ MEMORY. 

. PAGE 

;>+HOST FUNCTION "KHORZ" 

;THIS HOST FUNCTION CALLS UP A CORRESPONDING AP FUNCTION IN THE AP4D0. 

THIS HOST FUNCTION VERSION ASSUMES THAT SOURCE DATA ALREADY RESIDES IN WO AP 
iSil MEMORY DATA BUFFERS. AND THAT THE RESULT DATA WILL BE PLACED IN ANOTHER 
;AP DATA MEMORY DATA BUFFER. 

;THE CORRESPONDING "EDGE DETECTION" AP FUNCTION SHOULD BE REFERENCED FOR FURTHER 
; INFORMATION. 



; CALL FROM FORTRAN VIA: 



SUBSTITUTE Sheet 



OMPI 



WO 84/01212 
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SUBROUTINE CALL: CALL XHORZ ( DBI * , DBIb, DBIC ) 

; OR INTECER FUNCTION CALL. AS: I ERH « XHORZ C DBI4, DBIb, OBU ) 

; WHERE : 

DBIi m ID OF AP DATA BUFFER* TO HOLD RESULT DATA. 
; -DBU" MUST BC A SINCLE-VORD INTEGER VARIABLE OR CONSTANT. 

DBF NEED NOT HAVE BEEN PREVIOUSLY ALLOCATED, 
i IF NOT ALREADY ALLOCATED. DBF WILL BC ALLOCATED ; SIZE VI LL EQUAL 

; THAT OF SOURCE DATA BUFFERS. 

i IF RESULT DBF VAS PREVIOUSLY ALLOCATED. IT MUST BE OF 5IZE EQUAL 

; OR GREATER THAN SOURCE DATA BUFFERS. 

DBIb * ID OF AP DATA BUFFER HOLDING SOURCE DATA SETC ODD HORZ . CONV RES 

ULTS >. 

; "DB lb" MUST BE A SINCLE-VORD INTEGER VARIABLE OR CONSTANT. 

; DBF MUST HAVE BEEN PREVIOUSLY ALLOCATED IN AP DATA MEMORY 

» DATA BUFFERS DB I b , DB I c , DB I d , DB I t MUST BE OF EQUAL LENGTH. 

; DBIc « ID Or AP DATA BUFFER HOLDING SOURCE DATA 5ETCEVEN HORZ . CONV RES 

ULTS) . 

; "DBIc" MUST BE A 5INGLE-V0RD INTEGER VARIABLE OR CONSTANT. 

; DBF MUST HAVE BEEN PREVIOUSLY ALLOCATED IN AP DATA MEMORY. 

; RETURNS TO FORTRAN WITH: 

; ALL ARGUMENTS RETURNED AS RECEIVEO. 



FUNCTION EXECUTION "IN PROGRESS" OR "COMPLETE", DEPENDING UPON CURRENT 

AP MANAGER "RETURN" STATUS. 
IF CALLED AS A FORTRAN FUNCTION. THE VALUE RETURNED VI LL BE AS SPECIFIED 
* FOR REGISTER "R0 H , RETURNED FROM AN ASSEMBLY-LANGUAGE CALL. 

UPON ERROR. A STANDARD AP MANAGER ERROR EXIT WILL BE TAKEN. 



; CALL FROM PDP-11 ASSEMBLY LANGUAGE VIA: 

; A FORTRAN-COMPATIBLE CALL SEQUENCE. 

, RETURNS TO CALL+l : <ALVAYS> 

V 

; ALL CONDITIONS AS DESCRIBED FOR THE TORTRAN rUNCTION CALL FORM, ABOVE . 

; RO - . STATUS VALUE. (DEFINED BY AP MANAGER.) 

; -XHORZ" DEFINES NO UNIQUE VALUES. 

; Rl • UNDEFINED. 

i R2 « UNDEFINED. 

; R3 « UNDEFINED. 



;UPON ERROR, VHEN CALLED FROM FORTRAN OR ASSEMBLY LANGUAGE: 

; IF A FATAL ERROR OCCURS DURING EXECUTION OF THIS HOST FUNCTION OR DURING 

; EXECUTION OF A ROUTINE WHICH IT (IN TURN) CALLS (SUCH AS THE AP MANAGER 

; OR AP DRIVER) , THE AP MANAGER * 6 FATAL ERROR EXIT ROUTINE VILL BE CALLED. 
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KHORZ: 



IS 



.PACE 

CMPB 
BNE 

T5T 

TST 
BNE 

J5R 

C LR 

KOV 

nov 

KOV • 

nov 



<rs>, ta 

ERRORX 
<R5>* 

FC8DON 
I* 

PCXVAIT 
FCBDON 

COMCTL, FC8CTL 



; CHECK FOR PROPER NUMBER OF ARGUMENTS . 

SIT NOT CORRECT NUMBER , HANDLE AS A FATAL ERROR . 

;STEP POINTER AHEAD TO FIRST ARGUMENT ADDRESS. 

;TEST FOR COMPLETION OF A PREVIOUS OPERATION. 

;A ZERO "DONE" FLAG INDICATES PREVIOUS OPERATION 

; STILL IN PR0CRES5 . 

;VAIT FOR THE AP TO FINISH PROCESSING 

; RE INITIALIZE THE -DONE" FLAG . 

RETRIEVE AP MANAGER'S COMMON CONTROL VORD IN 
ORDER TO UTILIZE CURRENTLY-SELECTED OPTIONS. 
PLACE IT IN FCB'S CONTROL VORD. 



jMOVE RESULT DATA BUFFER ID " A " INTO FCB 
ARGUMENT LIST. 

STEP HOST MEMORY ADDRESS POINTER AHEAD. 

;MOVE SOURCE DATA BUFFER ID "8" INTO FCB 
ARGUMENT LIST. 
; STEP HOST MEMORY ADDRESS POINTER AHEAD. 
ecR3>*. FCBARL*aDB ;move source data BUFFER ID "C" into FCB 



*(R3>*, FCBARL 
»CR3>*. FC8ARL+4 



ARGUMENT LIST. 



MOV 



JMP 



MGRARG: BR 



.VORD 
.VORD 



•MGRARG, R5 
KEXFCB 



2S 



FCBBLX 
STATUS 



j ( INCREMENTING R5 . ALTHOUGH UNNECESSARY. SAVES 
EXECUTION TIME AND ONE MEMORY VORD. ) 
SET UP ADDRESS OF ARGUMENT LIST FOR CALL TO AP 
MANAGER . 

CALL UP THE AP MANAGER TO PROCESS THE FCB. 

A DIRECT BRANCH IS THE EQUIVALENT OF A M JSR" , 
FOLLOVED BY AN "RTS PC". 

"KEXFCB" VI LL RETURN ITS STATUS VALUE IN 
PDP-11 REGISTER RO AS VEIL AS IN LOCATION 
"STATUS" . 

BRANCH AROUND ARGUMENT LIST. (THIS INSTRUCTION 
PROVIDES "NUMBER OF ARGUMENTS- COUNT FOR AP 
MANAGER; THE BRANCH IS NEVER ACTUALLY TAKEN.) 

ADDRESS OF FCB. 

ADDRESS FOR RETURNED STATUS. 



Zt : 



;THIS LABEL MARKS THE END OF THE ARGUMENT LIST. 



ERRORX : JMP 



STATUS: .VORD 



MGRM6 7 



TAKE AN AP MANAGER STANDARD FATAL ERROR EXIT. 
RETURN STATUS CODE -67 TO INDICATE "IMPROPER 
NUMBER OF ARGUMENTS IN PARAMETER LIST". 

TEMPORARY STORAGE LOCATION FOR RETURNED AP 
} MANAGER STATUS. 



.PACE 

; FUNCTION CONTROL BLOCK: 



SUBSTITUTE * MCW 
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PCT/USH2/U1277 



FCBBLK : 
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FCBID: 
FC8CTL: 
FCEDON : 
FCBLNK: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



HORZ 

0 

1 

0 

0 



;ID OF THE AP FUNCTION . 
; CONTROL VORO. 

;DONE FLAG . INITIALIZED TO "DONE" STATE . 

; (HIGH-ORDER. > HOST MEMORY ADDRESS L INK TO NEXT 

;CLOV-ORD£R.) FCB IN HOST MEMORY. (NONE.> 



•FCBPLT: 
FCBNRS : 
FCBLEN: 



.UORD 
.VORO 
.VORD 



;FCB PARAMETER LIST TYPE. (DATA BUFFER ID'S.) 

; NUMBER OF ENTRIES IN ARCUKENT LIST. 

; LENGTH OF ARCUKENT LIST IN HOST MEMORY VORDS . 



FCBARL: 



.VORO 
.VORO 



; RESULT DATA BUFFER ID "A" ARGUMENT. 

; FIRST VORO - DBF ID; SECOND VORD « 0. 



.VORD 
.VORD 



; SOURCE DATA BUFFER ID ** B ** ARGUMENT. 

; FIRST VORD - DBF ID; SECOND VORD « 0. 



.VORD 
.VORD 



;SOURCE DATA BUFFER ID "C tt ARGUMENT. 
; FIRST VORD ■ DBF ID; SECOND VORD . 



. END 



ULTS 
L 



PROGRAM: 
FART NUMBER: 
VERSION DATE: 
AUTHORS : 
HISTORY: 
DESCRIPTION: 



APFNC: EDGE DETECTION 

SEPTEMBER 13. 1982 
CHE TANA BUCH 



THIS AF-BASED AP FUNCTION PERFORMS AN EDGE DETECTION BY 
BASICALLY DETECTING A ZERO CROSSING IN THE CONVOLVED RES 



OF THE LINE OF RAV IMAGE DATA. ODD AND EVEN MASKS ARE USED ON HORIZONTAL 
IMAGE DATA . 

THE RESULT BUFFER CONTAINS A CODED VORD FOR EACH PIXEL. 

THIS AP FUNCTION IS NORMALLY CALLED UP BY THE AP EXECUTIVE , VKICH 
RETRIEVES THIS AP FUNCTION'S ID NUMBER FROM A FUNCTION CONTROL BLOCK 
READ FROM HOST MEMORY. 



SUESTE7UTE SHEET 



WO 84/lUZiz 
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TITLE APFNC: EDGE DETECTION 

NAME OHOR2. 001 ; NAME AND VERSION FOR THE OBJECT MODULE. 

PACE 

RADIX H ; DEFAULT TO HEXADECIMAL RADIX. 

; INTERNALLY DEFINED GLOBALIZED SYMBOLS: < ICLOBL) 

; ENTRY POINTS: 

;NONE 

; SUBROUTINES: 
; NONE 

; GENERAL SYMBOLS 

; NONE 

; DATA MEMORY LABELS: 

;NONE 



; EXTERNALLY DEFINED GLOBALIZED SYMBOLS: (EGLOBL) 
; ENTRY POINTS: 

; NONE 

; SUBROUTINES: 

EGLOBL PLCHXl. FTLABT, PLDBF , NRMCNO 
; GENERAL SYMBOLS : 

; NONE 

; DATA MEMORY LABELS: 

;NONE 

; SYMBOL DEFINITIONS: 
;NONE 

;TERMIN0LOCY: 



cyiTfiTTUTE SHEET 



Wl?o .v, 
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;NONE 



PACE 
PMORG 



i START OF RELOCATABLE CODE IN PROGRAM MEMORY. 



;>*AP FUNCTION "QHORZ w 

; This AP Function ptrforas an odgt dsttction. This is actually'* tiro crossing 
; d«ttction ich«i«. 



; Call with: 



paraastor list typt 
paranstar list Isngth 



- 1. 

- 4. 



nuabtx of arguments 



- 3. 



word f argument ti 
word 10 argument #l 



* ID of rtsult Data Buffer "A". 
- Ignored. 



word 11 argument #2 
word 12 argument 42 



■ ID of fouret Data Buffer "B" . 
m Ignored. 



word 13 arguaent S3 
word 14 argument *3 



« ID of fouret Data Buffer "C" 
* Ignored. 



; Exits to AP Erecutive's "Fatal Abort" Serrice: 



; >- 



If an srror is found by AP StrTics Subroutine ' PLDBF * or •PLCHKl' 



PACE 

;DEFINITION OF THE FUNCTION ID FOR THE AP . EXECUTIVE FUNCTION TABLE: 



TUNC 



%D820, OKORZ 



; FUNCTION ID AND ENTRY POINT NAME. 



0H0R2: 



SETR 
SETR 
BETR 
JSR 



Rl«l 
R2-3 
R3.4 

PLCHK1 



;SET UP FOR CALL TO PLCHX1 
; PARAMETER DESCRIPTOR TYPE 
;« OF ARGUMENTS 
;4 OF WORDS IN ARC LIST 

:CO CHECK CORRECTNESS OF VALUES IN FCB . 



JMP 
JSR 

JMP 



FTLABT 



PLDBF 



FTLABT 



; RETURNS HERE IF ERROR 

lit OK, RETURNS HERE 

; FIND SOURCE DATA BUFFERS , 

i ALLOCATE RESULT DBF IF NECESSARY , 

; SET UP ARGUMENTS FOR A FUNCTION ADDR . CALL . 

; UPON ERROR , EXIT THROUCH AP EXECUTIVE'S 

; FATAL ABORT ROUTINE. 



SUBSTITUTE SHEft 



Ua,^ 
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START: 



CHKO: 



SET 


R15-R1 


; Rl 3—) RESULT BUFFER ADDRESS 


JSR 






JMP 


FTLA8T 




SET 


R1 3-Rl*l 


; R13-- >HORZ. ODD CONV < Ho ) 


JSR 


PLD8F 




JMP 


FTLABT 




SET 


RS «.R!*1 


i Rl4-->HORZ. EVEN tONv i n% 


SETR 


Rl-«H0r 




STREG 


Rl ,R1 3 


jSET BE* OF RESULT Bu**tn 


SETR 


Rl -0 


;SET NSN OF RESULT 


STREGI 


Rl ,R1 5.LO 


SET 


ft 1 2*nZ 


. ri2 >BUFFER LENGTH. 


LDREGI 


R3,R13 


j GET FIRST Ho/Vo VALUE 


LORE CI 


R4,R14 


;GET FIRST Kf/Vt VALUE 


STRECI 


Rl ,R15 


;OUTPUT ZERO FOR FIRST VALUE 


SET 


R12.R12-1 


; DECR COUNT 


5KIPLT 


R5.R3 


;SICN CHECK FOR ODD VALUES 




POSODD 




LDRECZ 


R3 .Rl 3 





CHKE: 



POSODD : 



POSEVN: 



KECEVN: 



SKIPGE 

JMP 

JMP 

LOREGI 

SXIPLT 

JMP 

SET 

SKXPGE 

SET 

JMP 



LDREGI 

SKIPLT 

JMP 

SET 

SET 

SKIPGE 

SET 

SET 

JMP 



LDRECI 
SKIPGE 
JMP 



RS-R4 

KECEVN 

POSEVN 

R3,R13 

R3.R3 

CHKE 

Rl 1.R13 

R5-R5+R3 

RU-Rll-1 

SELODD 



R4,R14 

R4-R4 

OUT2 

R2.R13-1 

R11-R1S 

R5-R3+R4 

R2-R2-1 

Rll.Rll-l 

OUTEVN 



R4.R14 

R4-R4 

OUTZ 



;SICN CHECX FOR EVEN VALUES 

;KERE IF VALUE IS ODD AND POSITIVE 

; FETCH NEXT VALUE AND COMPARE WITH PREVIOUS 

; CHECK EVEN IF NO SIGN CHANGE 

; ELSE SELECT APPROPRIATE CODE FOR OUTPUT 

;HERE IF VALUE IS EVEN AND POSITIVE 

; FETCH NEXT VALUE AND COMPARE VITH PREVIOUS 

jOUTPUT ZERO * SINCE NO SIGN CHANCE 



; ELSE SELECT APPROPRIATE CODE TO OUTPUT 

;HERE IF VALUE IS EVEN AND NEGATIVE 

; FETCH NEXT VALUE AND COMPARE VITH PREVIOUS 

; OUTPUT ZERO » SINCE NO SICN CHANCE 



SUBSTITUTE SHEET 
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SET 

SET 

SKIPLT 

SET 

SET . 

JKP 



Rll-RlS 

R2-R13-1 

R3-R3+R* 

Rl i.Rll-1 

R2.R2-1 

OUTEVN 



2 ELSE SELECT APPROPRIATE CODE TO OUTPUT 



SELODO: SET 



LORECI 

LDREG! 

SKIPCE 

SETR 

SKIPCE 

SETR 

SET 

SKIPCE 

SET 



R2.R14-I 

R5.R2 

H& , R2 

R5.H5 

R5-0 

R4»R6 

R4«fl 

R7.R4 

R6.R6-R5 

R7-R5 



; POINTER TO EVEN DATA 
;CETS THE RIGHT STRENGTH 

; OBTAIN THE THREE CONSECUTIVE DATA VALUES 
2 IN R3 , R6. R7. 

2 ZERO IF NEGATIVE 



; COMPARE TVO STRENGTHS 
;RS IS LARGER 



OUTODD: 



SETR 

SETR 

SKIPCE 

JMP 

LDREGI 

STREC 

JMP 



R3»*K3B 

R8«%D600 

R7.R7-R8 

CHKE 

R4,RM 

R5 ,R1 1 

NEXT 



; POSITIVE ODD ZERO CROSSINGS 

1 CODE FOR HORZ POS WEAK ODD PIXEL 
2 NOISE THRESHOLD FOR ODD 

2 CHECK THRESHOLD 

2 TOO LOW , NOT VALID SO CHECK EVEN 

2 INCH EVEN PTR SINCE NO EVEN CHECX DONE 

2 STRONG CODE IN OUT BUFFER 



OUTEVN: SETR 
LDREG 



R**%K3A 

R3 ,R2 



3 CODE FOR HORZ NEC EVEN STRONG PIXEL 
; FETCH STRENGTH 



SETR 

SKIPCE 

JMP 

STREC 

JMP 



R8»«Ol000 

R3-R3-R8 

OUTZ 

RA.Rll 

NEXT 



2NOISE THRESHOLD FOR EVEN 
2 CHECK THRESHOLD 
2 TOO LOW , SO WRITE OUT ZERO 
; STRONG CODE 



OUTZ: 



SETR 

STREGI 

JMP 



Rfl-0 
R«, R13 
NEXT I 



;VRITE OUT A ZERO. . .NO EDGE 



NEXT: 



SXIPCE 

JMP 

SET 



R11-R11-R15 
OUTZ 

R15-R1S+1 



NEXT1 : 



DBNZ 



R12,CHXO 



2 REPEAT TILL ALL PIXELS TESTED 



JMP 



RTN 



NRMCND 



2 CO TO NORMALIZE THE RESULT DATA. IF FCB CONTROL 
; BIT INDICATES SUCH REQUIREMENT. 
2 A DIRECT BRANCH IS THE EQUIVALENT OF A "JSR" 
2 FOLLOWED BY AN "RTN". 
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END 



.NLIST TTM 
. ENABL LC 



; PRODUCE LISTING IN VIDE STYLE. 

; RETA IN LOWER-CASE CHARACTERS AS SUCH. 



i 

FFERS 

i 

ASK. 



HSTFNC: EDGE DETECTION FOR RAW IMAGE 

SEPTEMBER I. 19 82 
CHETANA BUCH 



PROGRAM: 
PART NUMBER: 
VERSION DATE: 
AUTHOR : 
HI STORY : 

DESCRIPTION: THIS FORTRAN-CALLABLE HOST FUNCTION CALLS UP AN AP-BASED 

AP FUNCTION IN ORDER TO PERFORM "EDGE DETECTION" 
OPERATION BETWEEN THE RESPECTIVE ELEMENTS OF FOVR AP DATA MEMORY DATA BU 

WHICH CONTAIN THE VARIOUS CONVOLUTION RESULTS OF THE LINE IMAGE WITH A M 



. TITLE KVZER - HSTFNC: EDGE DETECTION 

. IDENT /VOl/ IDENTIFIER FOR THE OBJECT MODULE. 




WO 84/01212 



PCT/U582/U12YV 
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.PACE 

; ESTABLISH ASSEMBLY AND LISTING CONVENTIONS: 



.NLIST TTM 
.DSABL CBL 
. ENA8L LC 



PRODUCE LISTING IN VIDE STYLE. 

FLAG NON-EX I STENT- SYMBOL REFERENCES AS ERRORS . 
RETAIN LOVER-CASE CHARACTERS AS SUCH. 



.CSECT KVZER 



; ESTABLISH A NAMED CSECT. 



; INTERNALLY DEFINED GLOBALIZED SYMBOLS: 



.GLOBL KVZER 



;EXTERNALLY DEFINED GLOBALIZED SYMBOLS: 



.GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 



KEXFCB 
KVAIT 
MGRMi? 
COMCTL 



;AP MANAGER'S "FCB EXECUTION" SUBROUTINE. 

;AP MANAGER *S VAIT ROUTINE 

iAP MANAGER'S M FATAL ERROR *-«7" EXIT ROUTINE . 

;AP MANAGER'S °FCB CONTROL VORD" . 



;AP FUNCTION ID'S REFERENCED: 

VZER» AD810. ;ID FOR "VERTICAL EDGE DETECTION" 



; SYMBOL DEFINITIONS: 
;NONE 

{TERMINOLOGY : 

; FCB - FUNCTION CONTROL BLOCK , READ BY THE AP EXECUTIVE FROM HOST 

MEMORY . 



.PAGE 

;>*HOST FUNCTION "KVZER" 

;TH1S HOST FUNCTION CALLS UP A CORRESPONDING AP FUNCTION IN THE AP400 . 

;THIS HOST FUNCTION VERSION ASSUMES THAT SOURCE DATA ALREADY RESIDES IN FOUR AP 
;DATA MEMORY DATA BUFFERS , AND THAT THE RESULT DATA WILL BE PLACED IN ANOTHER 
;AF DATA MEMORY DATA BUFFER . 

;THE CORRESPONDING -EDGE DETECTION" AP FUNCTION SHOULD BE REFERENCED FOR FURTHER 
: INFORMATION. 



; CALL FROM FORTRAN VIA: 
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t > 



SUBROUTINE CALL: • CALL XV2ER C DBU, DBIH, DBIc, DBId, DBIt.DBI 

OR INTEGER FUNCTION CALL , AS: IERR • KVZER ( DB 1 t . DB I b , DBIc, DBId, D 



Ble ) ) 
; WHERE: 
i DBI* 



DB lb 



DBIc * 



DBId 
DBIc 



ID OF AP DATA BUFFER TO HOLD SOURCE DATA . 

"DBI*" MUST BE A SINCLE-WORD INTEGER VARIABLE OR CONSTANT. 
DBF NEED NOT HAVE BEEN PREVIOUSLY ALLOCATED. 

IF NOT ALREADY ALLOCATED , DBF WILL BE ALLOCATED; SIZE WILL EQUAL 
THAT OF SOURCE DATA . BUFFERS . 

IF RESULT DBF WAS PREVIOUSLY ALLOCATED, IT MUST BE OF SHE EQUAL 

OR GREATER THAN SOURCE DATA BUFFERS. 

ID OF AP DATA BUFFER HOLDING SOURCE DATA SET 

M DBIb" MUST BE A SINGLE-VORD INTEGER VARIABLE OR CONSTANT. 

DBF MUST HAVE BEEN PREVIOUSLY ALLOCATED IN AP DATA MEMORY. 

DATA BUFFERS DB I b . DB I C . DB I d , DB I t MUST BE OF EQUAL LENGTH. 

ID OF AP DATA BUFFER HOLDING SOURCE DATA SET 

"DBIc" MUST BE A SINGLE-VORD INTEGER VARIABLE OR CONSTANT. 

DBF MUST HAVE BEEN PREVIOUSLY ALLOCATED IN AP DATA MEMORY. 

ID OF AF DATA BUFFER HOLDING SOURCE DATA SET 

SAME RESTRICTIONS AS ABOVE APPLY. 

ID OF AP DATA BUFFER HOLDING EVEN VERT . CONV RESULTS. 
SAME RESTRICTIONS AS ABOVE APPLY. 



; RETURNS TO FORTRAN VITH: 

; ALL ARGUMENTS RETURNED AS RECEIVED. 

; FUNCTION EXECUTION "IN PROGRESS" OR "COMPLETE", DEPENDING UPON CURRENT 

• AP MANAGER "RETURN" STATUS. 

IF CALLED AS A FORTRAN FUNCTION. THE VALUE RETURNED WILL BE AS SPECIFIED 
FOR REGISTER "RO", RETURNED FROM AN ASSEMBLY-LANGUAGE CALL. 

; UPON ERROR , A STANDARD AP MANAGER ERROR EXIT WILL BE TAKEN . 

.CALL FROM PDP-11 ASSEMBLY LANGUAGE VIA: 

; A FORTRAN-COMPATIBLE CALL SEQUENCE. 

; RETURNS TO CALL* I: (ALWAYS) 

ALL CONDITIONS AS DESCRIBED FOR THE FORTRAN FUNCTION CALL FORM. ABOVE. 
\ R o « STATUS VALUE. (DEFINED BY AP MANAGER.) 

"KVZER" DEFINES NO UNIQUE VALUES. 
- Rl « UNDEFINED. 

; R2 * UNDEFINED. 

; RS - UNDEFINED . 



;UPON ERROR, WHEN CALLED FROM FORTRAN OR ASSEMBLY LANCUACE : 



substitute: sheet 
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IF A FATAL ERROR OCCURS DURING EXECUTION OF THIS HOST FUNCTION OR DURING 
EXECUTION OF A ROUTINE WHICH IT UN TURN) CALLS CSUCH AS THE AP MANAGER 
OR AP DRIVER) « THE AP MANAGER'S FATAL ERROR EXIT ROUTINE WILL BE CALLED . 

.PAGE 



KVZER: 



1$: 



CMPH <R5>. #4 

BNE ERRORS 

TST <R3)* 

TST FCBDON 

BNE If 

JSR PC.XVAIT 

CLR FCBDON 

MOV COMCTL. FCBCTL 



MOV §<R3)+. FCBARL 



i CHECK FOR PROPER NUMBER OF ARGUMENTS . 

;IF NOT CORRECT NUMBER, HANDLE AS A FATAL ERROR. 

;STEP POINTER AHEAD TO FIRST ARGUMENT ADDRESS. 

TEST FOR COMPLETION OF A PREVIOUS OPERATION. 
A ZERO "DONE- FLAG INDICATES PREVIOUS OPERATION 
STILL IN PROGRESS. 

iVAIT FOR THE AP TO FINISH PROCESSING 

; RE INITIALIZE THE "DONE" FLAG.. 

RETRIEVE AP MANAGER'S COMMON CONTROL VORD IN 
ORDER TO UTILIZE CURRENTLY -SELECTED OPTIONS. 
PLACE IT IN FCB'S CONTROL VORD . 

MOVE SOURCE DATA BUFFER ID "A" INTO FCB 
ARGUMENT LIST. 

STEP HOST- MEMORY ADDRESS POINTER AHEAD. 



MOV 9<RS)+, FCBARL+4 ;MOVE SOURCE DATA BUFFER ID "B" INTO FCB 

; ARGUMENT LIST. 

; STEP HOST MEMORY AODRESS POINTER AHEAD. 
MOV 8CR3)+. FCBARL+AD8 ;MOVE SOURCE DATA BUFFER ID M C INTO FCB 

; ARGUMENT LIST. 



MOV 
MOV 
MOV 

MOV 
JMP 



MGRARC: BR 



.VORD 
.WORD 



a<R5)+,FCBARL+ADl2 ;MOVE SOURCE DATA BUFFER ID " D " INTO FCB 

; ARGUMENT LIST. 
ftCR3)*.FC8ARL*ADlt ;MOVE SOURCE DATA BUFFER ID "E" INTO FCB 

i ARGUMENT LIST. 
tCR5) + ,FCSARL+AD20 ;MOVE SOURCE DATA 'BUFFER ID **F ** INTO FCB 

ARGUMENT LIST. 

(INCREMENTING R5 . ALTHOUGH UNNECESSARY , SAVES 
EXECUTION TIME AND ONE MEMORY WORD.) 
SET UP ADDRESS OF ARCUMENT LIST FOR CALL TO AP 
MANAGER. 

CALL UP THE AP MANAGER TO PROCESS THE FCB. 

A DIRECT BRANCH IS THE EQUIVALENT OF A "JSR", 
FOLLOWED BY AN -RTS PC". 

"KEXFCB" VI LL RETURN ITS STATUS VALUE IN 
PDP-11 REGISTER R0 AS WELL AS IN LOCATION 
-STATUS- . 

BRANCH AROUND ARCUMENT LIST. (THIS INSTRUCTION 
PROVIDES "NUMBER OF ARGUMENTS" COUNT FOR AP 
MANACER; THE BRANCH IS NEVER ACTUALLY TAKEN.) 
ADDRESS OF FCB. 
ADDRESS FOR RETURNED STATUS. 



•MGRARC t R5 
KEXFCB 



2t 



FCBBLK 
STATUS 



_OMH 



WU 
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Zt: ;THIS LABEL MARKS THE END OF THE ARGUMENT LIST 

ERRORS : JMP MGRM6 7 



STATUS : .WORD 0 
. PACE 

, FUNCTION CONTROL 8L0CK : 
FCBBLK . 



FCBID : 
FCBCTL: 
FCBOON: 
FCBLNK: 



FCBPLT 
FCBNRC 
FCBLEN 

FCBARL : 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 

.VORD 
.WORD 

.VORD 



VZER 

0 

1 

0 

0 

1 

6 

aD12 

0 
0 



; TAKE AN AP MANAGER STANDARD FATAL ERROR EXIT. 
; RETURN STATUS CODE -*7 TO INDICATE "IMPROPER 
; NUMBER OF ARGUMENTS IN PARAMETER LIST". 



; TEMPORARY STORAGE LOCATION FOR RETURNED AP 
; MANAGER STATUS . 



;ID OF THE AP FUNCTION. 
; CONTROL VORD . 

; DONE FLAG . INITIALIZED TO -DONE" STATE. 

; (HIGH-ORDER. > HOST MEMORY ADDRESS LINK TO NEXT 

;< LOW-ORDER. > FCB IN HOST MEMORY . (NONE.) 

;FCB PARAMETER LIST TYPE . (DATA BUFFER ID'S.) 

; NUMBER OF ENTRIES IN ARGUMENT LIST. 

; LENGTH OF ARGUMENT LIST IN HOST MEMORY WORDS. 

; RESULT DATA BUFFER ID "A" ARGUMENT. 

; FIRST VORD - DBF ID; SECOND VORD - 0. 



;S0URCE DATA BUFFER ID "B" ARGUMENT. 



.VORD 

.VORD 
.VORD 

.VORD 
.VORD 

.VORD 
.VORD 

.VORD 
.VORD 



; FIRST VORD - DBF ID? SECOND VORD - 0. 

j SOURCE DATA BUFFER ID "C" ARGUMENT. 

; TIRST VORD - DBF ID; SECOND VORD * 0. 

j SOURCE DATA BUFFER ID H D '* ARGUMENT 

j FIRST VORD * DBF ID i SECOND VORD - 0- 

; SOURCE DATA BUFFER ID M E M ARGUMENT. 

; FIRST VORD - DBF ID; SECOND VORD « 0. 



. END 



SUBSTITUTE SHEET 



WO 84/01212 



PCT/US82/01277 



-138- 



VLTS 
ALLY 



PRO CRAM: 
PART NUMBER: 
VERSION DATE: 
AUTHORS : 
HISTORY: 
DESCRIPTION: 



APFNC: EDGE DETECTION 

SEPTEMBER 6, 19 82 
CHETANA SUCH 



THIS AF-BASED AP FUNCTION PERFORMS AN EDGE DETECTION BY 
BASICALLY DETECTING A ZERO CROSSING IN THE CONVOLVED RES 



OF THE LINE OF RAW IMAGE DATA. ODD AND EVEN MASKS ARE USED BOTH HORIZONT 

AND VERTICALLY ON THE IMAGE DATA RESULTING IN FOUR DATA BUFFERS VHICH 

HAVE TO BE STUDIED FOR THE EDGE DETECTION. 

THE RESULT BUFFER CONTAINS A CODED WORD FOR EACH PIXEL. 

THIS AP FUNCTION IS NORMALLY CALLED UP BY THE AP EXECUTIVE. WHICH 
RETRIEVES THIS AP FUNCTION'S ID NUMBER FROM A FUNCTION CONTROL BLOCK 
READ FROM HOST MEMORY. 



APFNC : EDGE DETECTION 

GVZER « 00 t ; NAME AND VERSION TOR THE OBJECT MODULE. 

PACE 

RADIX H ; DEFAULT TO HEXADECIMAL RADIX. 

; INTERNALLY DEFINED GLOBALIZED SYMBOLS: (ICLOEL) 
ENTRY POINTS: 
; NONE 

; SUBROUTINES: 
; NONE 

; GENERAL SYMBOLS 

;NON£ 

; DATA MEMORY LABELS: 

; NONE 



TITLE 
NAME 
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; EXTERNALLY DEFINED GLOBALIZED SYMBOLS: 
ENTRY POINTS: 
;NONE 

; SUBROUTINES : 

EGLOBL PLCHKi, FTLABT, PLD8F # NRMCND 

GENERAL SYMBOLS : 

;NONE 

; DATA MEMORY LABELS: 

;NONE 



< ECLQBL ) 



;SYMBOL DEFINITIONS: 
;NONE 



; TERMINOLOGY : 
,%NONE 



PACE 
PMORG 



; START OF RELOCATABLE CODE IN PROGRAM MEMORY. 



;>+AP FUNCTION "QVZER" 

; This AP Funetlon performs en edge detection. This if actually * crossing 
; detection fchtftt. 



Call with: parameter list type 

P4riaitir list length 

word 9 irgamint tl 
word 10 argument tl 

word 11 argument #2 
word 12 argumtnt #2 

word 13 argument f3 
word 14 argument #3 

word IS argument «4 



- 1. 

m XI. 



noabtr of Arguments ■ e» 



m ID of result Date Buffer "A". 
■ Ignored. 

• ID of touree Data Buffer "B H . 
m Ignored. 

m ID of source Data Buffer "C". 
m Ignored. 

« xo of source Data Buffer "D" . 



SUEGTiTUTE SHEET 
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word 14 irgontnt M 

word 17 argument #5 
word 1? argvaont #5 
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■ Ignored. 

» ID of lourci Dat* Bufftr . 
- Ignortd. 



; Exits to AP Eioeotivo't "Fatal Abort" Sarrieo: 

; If an error it found bf AP Sorvioa Subroutine 'FLD3F ' or 'PLCKKl' 

; >- 



PACE 

DEFINITION OF THE FUNCTION ID FOR THE AP EXECUTIVE FUNCTION TABLE: 



FUNC 



%D8lO, QVZER 



; FUNCTION ID AND ENTRY. POINT NAME. 



QV2ER: 



SETR 
SETR 
SETR 
J5R 

JMF 

SETR 



Rl.l 
KZmi 
R3-%D12 
PLCHKl 

FTLABT 

R13»* 



;SET UP FOR CALL TO PLCHKl 
; PARAMETER DESCRIPTOR TYPE 

OF ARGUMENTS 

OF WORDS IN ARC LIST 
;CO CHECX CORRECTNESS OF VALUES IN FCB . 

; RETURNS HERE IF ERROR 
;IF OK. RETURNS HERE 



FETCH: 



JSR 

JMP 

SET 

PUSH 

DBNZ 



PLDBF 
FTLABT 
Rl«Rl+l 
Rl 

Rl 5 , FETCH 



FIND SOURCE DATA BUFFERS , 
ALLOCATE RESULT DBF IF NECESSARY , 
SET UP ARGUMENTS FOR A FUNCTION ADDR . CALL. 
UPON ERROR t EXIT THROUGH AF EXECUTIVE'S 
FATAL ABORT ROUTINE. 



POP 

POP 

POP 

FOP 

POP 

FOP 

SETR 

SET 

SET 

STREC 

5TREC 

SETR 

STREGI 

STREC I 



813 
R14 
R13 
R12 
Rll 
RIO 

R1»*H0F 
RM-RM-l 
R15-R15-1 
Rl ,Rl 4.HI 
Rl ,R1S,KI 
R1»0 

Rl ,RM.L0 
Rl .H15.LO 



;R1S — > ZER2 

;R14 — > ZER1 

;R13 — > VE2 

;R12 V02 

;R11 — > VE1 

;R10 — > VOl 



START: 



LDREGI 
LDREGI 



R3.RI0 
R4,R12 



;CET FIRST VOl VALUE 
;CET FIRST V02 VALUE 



SETR RB«0 
TEST: SETR RP-0 



; FLAG FOR EVEN/ODD 
; FLAG FOR SIGN 
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SKIPCC 
JMP 

SKIPCE 
JMP 

CHK: SKIPLT 
JMP 

FINISH: SET 
SET 



NEXT: 



DBNZ 



R3.R3 

NEC 

R4.R4 

ZERO 

R8bRS. 

CHKE 

R14.R14+I 
R15-R13+1 
R2 i START 



;CHECK IF EVEN OR ODD 

; IF ODD. CHK EVEN 

; ELSE UPDATE POINTERS 

; AND CHECK NEXT VALUE 



CHKE : 



JMP 



RTN 

LDREG I 
LORECI 
SETR 
JMP 



NRMCND 



R3,R1 i 
R4 ,R13 
R8»-l 
TEST 



;CO TO NORMALIZE THE RESULT DATA, IF FCB CONTROL 
; BIT INDICATES SUCH REQUIREMENT. 
; A DIRECT BRANCH IS THE EQUIVALENT OF A "JSR" 
; FOLLOWED BY AN -RTN" . . 



; FETCH VE1 
; FETCH VE2 
; FLAG EVEN DATA 



NEC 



SKIPCE 
JMP 

SKIPLT 

JMP 

SETR 



R4aR4 

CHK 

R8»R8 

CHKE 

R7--1 



;NO SICN CHANGE 
; CHECK FO NEC ODD 

; MARK FOR NEGATIVE * 



:ERO: 



A20: 



CODE: 



SKIPLT 
JMP 

SKIPLT 
JMP 

SKIPCE 

JMP 

SETR 

LDREC 

LDREG 

SKIPCE 

SETR 

SKIPCE 

SETR 

SET 

SKIPCE 

SET 

5KIPNE 

JMP 

SETE 

SKIPLT 

JMP 

SETR 

SKIPLT 

JMP 

STRECI 

SET 

JMP 



R9.R9 

NECNO 

R3-R3+R4 

EVEP 

R0-R8 

EVEN 

R9-0 

RS,R13 

R6 ( Rl 1 

R5.R5 

R5-0 

R4-R6 

R<«0 

R7.R6 

R4-R4-RS 

R7.R5 

R7-R7 'OR'R? 
CHKE 

R6s%DA00 

R6-R6-R7 

CHKE 

R6**H37 

R9*R9 

OUT 

R A , R I 4 

RlS-RlS+i 

DONE 



;CHK SICN 

;R3 IS -VE ;R4 IS +VE 
;CET CORRES EVEN STRENCTHS 



;R7 IS MAX CR5,R63 



;-VE VALUE NOT VALID FOR ODD 
; NOISE THRESHOLD 

;NOISE 

i VERT ODD PIXEL 
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OUT: 
DONE : 

A10: 
EVEN: 



EVEP: 



STRECI 

SET 

SET 

SET 

JKP 

SKIPCE 
JMP 
SETR 
JMP 

SET 

LDREC 

SXtPCE 

SET 

SETR 

SKIPLT 

JMF 

SETR 

STRECI 

SET 

JMP 



R6.R13 

Rl 4-R14+1 

Rl 1«R1 i+X 

R13-R13+1 

NEXT 

R8.RS 

EVEP 

R9--1 

CODE 

R4-R12-1 

RS.R6 

RSsRS 

RS.'COKP'RS 
R6«%D1000 
R4.R4-R3 
FINISH 
R4»%H3 4 
R4 ,R13 
RI4-RJ4+1 
NEXT 



SET R4-R10-1 

LDREC R3.R4 

SKIPGE RS.R3 

SET R3»'COMP f R3 

SETR R4«%D100 0 



NEGNO: 



SKIPLT 

JMP 

SETR 

LDREC 

SXIPNE 

JKP 

STRECI 
SET 
' JMP 

SKIPCE 

JKP 

JMP 



R4.R4-R3 
FINISH 
R4«*H34 
R7.R14 

R7«R7*XOR'%K3? 

FINISH 

R6 ,RH 

R15-R15+1 

NEXT 

R3-R3+R4 

A10 

A20 



END 
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.NL 1ST TTM 
. ENABL LC 



; PRODUCE LISTING IN VIDE STYLE . 

; RETAIN LOWER-CASE CHARACTERS AS SUCK. 



PROGRAM: 
PART NUMBER: 
VERSION DATE: 
AUTHOR: 
HISTORY: 
DESCRIPTION: 



HSTFNC: BYTE- UNPACKIC 

SEPTEMBER ?, 1982 
CKETANA BUCH 



THIS FORTRAN-CALLABLE HOST FUNCTION CALLS UP AN AP-BASED 
AP FUNCTION IN ORDER TO P EH FORK "UNPACK INC*' 



.TITLE XUPAK - HSTFNC: UNPACK DATA FROM BYTE TO WORD FORMAT 
. IDENT /V01/ ; IDENTIFIER FOR THE OBJECT MODULE. 

.PACE 

ESTABLISH ASSEMBLY AND LISTING CONVENTIONS: 



.NL I ST TTM 

. DSAEL CBL 

. ENABL LC 

.CSECT KUPAK 



; PRODUCE LISTING IN VIDE STYLE. 

; FLAC NON-EXISTENT-SYMBOL REFERENCES AS ERRORS. 
; RETAIN LOVER-CASE CHARACTERS AS SUCH. 

; ESTABLI SH A NAMED CSECT. 



; INTERNALLY DEFINED GLOBALIZED SYMBOLS: 

CLOBL XUPAK 
; EXTERNALLY DEFINED GLOBALIZED SYMBOLS: 



. CLOBL KEXFCB 

. CLOBL .XVAIT 

. CLOBL MGRM47 

. GLOBL COMCTL 



AP MANAGER'S "FC8 EXECUTION" SUBROUTINE. 
AP MANAGER'S WAIT ROUTINE 

AP MANAGER'S "FATAL ERROR f-67" EXIT ROUTINE. 
AP MANAGER'S "FCB CONTROL VORD-. 



;AP FUNCTION ID'S REFERENCED: 

UPAK- AD8I4. ;ID FOR "UNPACKING " 



; SYMBOL DEFINITIONS: 
; NONE 



SUBSTITUTE SHEET 
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;TERMINOLOGY: 

; FCB - FUNCTION CONTROL BLOCK , READ BY THE AP EXECUTIVE FROM HOST 

; MEMORY. 



.FACE 

; ; 4-HOST FUNCTION -KUPAK" 

;THIS HOST FUNCTION CALLS UP A CORRESPOND INC AP FUNCTION IN THE AP400. 

:THIS HOST FUNCTION VERSION ASSUKTS THAT SOURCE DATA ALREADY RESIDES IN ONE AP 
; DATA MEMORY DATA BUFFERS. AND THAT THE RESULT DATA WILL BE PLACED IN RESULT 
;AP DATA MEMORY DATA BUFFER WHICH VI LL HAVE TVICE THE SIZE OF THE SOURCE. 

I THE CORRESPONDING "UNPACKING" AP FUNCTION SHOULD BE REFERENCED FOR FURTHER 
: INFORMATION. 



CALL FROM FORTRAN VIA: 

SUBROUTINE CALL: CALL KUPAK ( DBIa. DBIb ) 

OR INTEGER FUNCTION CALL. AS: I ERR m KUPAK ( DBIt. OBIb ) 



; WHERE: 

; . DBIi • ID OF AP DATA BUFFER TO HOLD RESULT DATA 

"DBIa" MUST BE A SINGLE-WORD INTEGER VARIABLE OR CONSTANT. 

5 . THIS BUFFER WILL BE TWICE THE SIZE OF THE SOURCE BUFFER. 

DBF SHOULD HAVE BEEN PREVIOUSLY ALLOCATED. 

i DBIb « ID OF AP DATA BUFFER HOLDING SOURCE DATA SET. 

"DB lb" MUST BE A SINCLE-VORD INTEGER VARIABLE OR CONSTANT. 

; RETURNS TO FORTRAN WITH: 

; ALL ARGUMENTS RETURNED AS RECEIVED. 

; FUNCTION EXECUTION "IN PROGRESS'* OR "COMPLETE". DEPENDING UPON CURRENT 

AP MANAGER "RETURN" STATUS. 
i IF CALLED AS A FORTRAN FUNCTION. THE VALUE RETURNED WILL BE AS SPECIFIED 

; FOR REGISTER "R0", RETURNED FROM AN ASSEMBLY-LANGUAGE CALL. 

; UPON ERROR, A STANDARD AP MANAGER ERROR EXIT WILL BE TAKEN . 



;CALL FROM PDP-11 ASSEMBLY LANGUAGE VIA: 
; A FORTRAN-COMPATIBLE CALL SEQUENCE. 

.RETURNS TO CALL+l : (ALWAYS) 

; ALL CONDITIONS AS DESCRIBED FOR THE FORTRAN FUNCTION CALL FORM. ABOVE. 




WO 84/01212 




RO - STATUS VALUE. (DEFINED BY AP MANAGER . > 

"KVPAK" DEFINES NO UNIQUE VALUES. 
Rl « UMDEFINED. 
R: » UNDEFINED . 
R5 « UNDEFINED. 



;UPON ERROR , WHEN CALLED FROM FORTRAN OR ASSEMBLY LANCUACE : 



, >- 

KUFAK . 



IF A FATAL ERROR OCCURS DURING EXECUTION OF TK IS HOST FUNCTION OR DURING 
EXECUTION OF A ROUTINE WHICH IT (IN TURN) CALLS (SUCH AS THE AP MANAGER 
OR AP DRIVER > , THE AP MANAGER'S FATAL ERROR EXIT ROUTINE WILL BE CALLED 

.PACE 



CMPE 
,BN5 



<R5), #2 
ERRORX 



; CHECK FOR PROPER NUMBER OF ARGUMENTS. 

; IF NOT CORRECT NUMBER, HANDLE AS A FATAL ERRCR . 



TST 



(RS) + 



;STEP POINTER AHEAD TO FIRST ARGUMENT ADDRESS. 



1$ 



TST 
BNE 

JSR 

CLR 



FCBDON 
1$ 

PC.KWAIT 
FCBDON 



; TEST FOR COMPLETION OF A PREVIOUS OPERATION. 

iA ZERO "DONE" FLAG INDICATES PREVIOUS OPERATION 

; STILL IN PROGRESS. 

;WAIT FOR THE AP TO FINISH PROCESSING 

; RE INITIAL IZE THE "DONE" FLAC. 



MOV 



COMCTL, FCBCTL 



; RETRIEVE AP MANACER.'S COMMON CONTROL WORD IN 
; ORDER TO UTILIZE CURRENTLY -SELECTED OPTIONS. 
i PLACE IT IN FCB'S CONTROL WORD. 



MCV 



MOV 



MOV 



JMP 



HGRARG . BR 



. WORD 
.WORD 
25: ;THIS 



e(R5>+, FCBARL 



e<R5>4. FCBARL* 4 



• MGRARG $ R5 



KEXFCB 



21 



FCBBLK 
STATUS 



MOVE RESULT DATA BUFFER ID "A" INTO FCS 
ARGUMENT LIST. 

STEP HOST MEMORY ADDRESS POINTER AHEAD. 

;MOVE SOURCE DATA BUFFER ID "B" INTO FCB 
ARGUMENT LIST. 

STEP HOST MEMORY ADDRESS POINTER AHEAD . 
(INCREMENTING R5 , ALTHOUGH UNNECESSARY » SAVES 
EXECUTION TIME AND ONE MEMORY WORD.) 
SET UP ADDRESS OF ARGUMENT LIST FOR CALL TO AP 
MANAGER. 

CALL UP THE AP MANAGER TO PROCESS THE FCB . 

A DIRECT BRANCH IS THE EQUIVALENT OF A "JSR", 
FOLLOWED BY AN "RTS PC". 

"KEXFCB" WILL RETURN ITS STATUS VALUE IN 
PDP-11 REGISTER RO AS WELL AS IN LOCATION 
"STATUS" . 

BRANCH AROUND ARGUMENT LIST. (THIS INSTRUCTION 
PROVIDES "NUMBER OF ARGUMENTS" COUNT FOR AP 
MANAGER; THE BRANCH IS NEVER ACTUALLY TAKEN.) 

ADDRESS OF FCB. 

ADDRESS FOR RETURNED STATUS. 



LABEL MARKS THE END OF THE ARGUMENT LIST. 
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ERRORX : JMP 



STATUS: .VORD 



KCRM6? 



.PACE 

; FUNCTION CONTROL BLOCK: 



TAKE AN AP MANAGER STANDARD FATAL ERROR EXIT 
RETURN STATUS CODE -<? TO INDICATE -IMPROPER 
NUMBER OF ARGUMENTS IN PARAMETER LIST". 

; TEMPORARY STORAGE LOCATION FOR RETURNED AP 
; MANAGER STATUS. 



FCBBLK - 

FCEID: 
FCBCTL. 
FCSDOK: 
FC6LNK: 



FCBPLT: 
FCBNRC . 
FCBLEN. 

FCBARL: 



.WORD 
.VORD 
.WORD 
.WORD 
.VORD 

.VORD 
.VORD 
.VORD 

.VORD 
.VORD 

VORD 
.VORD 



UPAK 

0 

1 

0 

0 

I 
2 
4 

0 
0 

0 

0 



;ID OF THE AP FUNCTION. 
; CONTROL VORD . 

;DONE FLAG. INITIALIZED TO "DONE " STATE . 

; CKICH-ORDER. ) HOST MEMORY ADDRESS LINK 70 NEXT 

; (LOV-ORDER. ) FCB IN HOST MEMORY. (NONE.) 

FCB PARAMETER LIST TYPE. (DATA BUFFER ID'S.) 

NUMBER OF ENTRIES IN ARGUMENT LIST. 

LENGTH OF ARGUMENT LIST IN HOST MEMORY VORDS 

; RESULT DATA BUFFER ID "A" ARCUMENT. 

. FIRST VORD » DBF ID; SECOND VORD * C. 

; SOURCE DATA BUFFER ID **E M ARGUMENT. 

i FIRST VORD - DBF ID; SECOND VORD » 0. 



. END 
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FROCRAM: 
PART NUMBER: 
VERSION DAT? : 
AUTHORS : 
HISTORY: 
DESCRIPTION: 



AFFNC : UNPACKING OF DATA 

SEPTEMBER 1. 1982 
CHETANA BUCH 



THIS AP-BASED AP FUNCTION PERFORMS UNPACKING OF DATA IN 
THE AP FROM BYTE FORMAT TO WORD FORMAT . 



THIS AP FUNCTION IS NORMALLY CALLED UP BY THE AP EXECUTIVE. VH1CH 
RETRIEVES THIS AP FUNCTION'S ID NUMBER FROM A FUNCTION CONTROL BLOCK 
READ FROM HOST MEMORY. 



TITLE APFNC: UNPACK DATA 

NAME QUPAK . 001 ;NAME AND VERSION FOR THE OBJECT MODULE. 



PAGE 

RADIX H 



;DEFAULT TO HEXADECIMAL RADIX. 



; INTERNALLY DEFINED GLOBALIZED SYMBOLS: 
j ENTRY POINTS: 

;NONE 

; SUBROUTINES: 
; NONE 

i GENERAL SYMBOLS 

; NONE 

; DATA MEMORY LABELS: 

;NONE 

i EXTERNALLY DEFINED GLOBALIZED SYMBOLS: 
; ENTRY POINTS: 



(ZCLOBL) 



(ECLOBL) 



..,*<rrmJT£ SHEET 
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;NONE 

SUBROUTINES : 

ECLOBL FLCHX1. FTLABT , PLDBF , NRMCND 

GENERAL SYMBOLS: 

;NOKE 

DATA MEMORY LABELS : 
; NONE 



:SYMBOL DEFINITIONS: 
;NONE 

TERMINOLOGY: 
;NONE 

PACE 



PMORC ; START Or RELOCATABLE CODE IN PROGRAM MEMORY. 

;>+A.P FUNCTION "OUPAK" 

; This AP Function performs unpioting of data from a souroe buffer. The resulting, 
. buffet will b* twice the sis* of the the toorc* buffer. 

: Call with: pariatttr list typo « 1, number of arguments • 2, 

; puiatttr list longth « «. 

; word 9 argument tl - ID of result Oats Buffer M A M . 

; word 10 argument SI « Ignored. 

i word 11 argument #2 » ID of source Data Buffer "B" 

; word 12 argument «2 a Ignored. 

i Exits to AF Executive's "Fatal Abort" Service: 

; If en error is found by AP Service Subroutine 1 PLDBF • of 1 FLCKK1 ' . 



PAGE 

DEFINITION OF THE FUNCTION ID FOR THE AP EXECUTIVE FUNCTION TABLE: 
FUNC %D814. QUPAX ; FUNCTION ID AND ENTRY POINT NAME. 
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QUPAK : 



;SET UP FOR CALL TO PLCKK 1 



NEXT. 



SHIFT: 



SETR 


Rl«l 


; PARAMETER DESCRIPTOR TYPE 


SETR 


R2-2 


; 1 OF ARGUMENTS 


SETR 


R3a4 


;t OF WORDS IN ARC LIST 


JSR 


PLCKX 1 


;GO CHECK CORRECTNESS OF VALUES IN 


JMP 


FTLABT 


; RETURNS HERE IF ERROR 






;IF OK, RETURNS HERE 


JSR 


PLDBF 




JMP 


FTLAST 


- 


SET 


R15.R1 


;POINTS TO RESULT BUFFER 


JSR 


PLDBF 




JMP 


FTLABT 


;R1 POINTS TO SECOND SOURCE BUFFER 


LDRCCt 


RIO.Rl 


; FETCH BEX/NSN 


STREGI 


RIO.RlS 




LDREC I 


R3,Rt 


; FETCH NEXT WORD 


SET 


R4-R3 




SETR 


R6 «*HFF 


;SET MASK 


SET 


R3-R3 * AND 'R4 


iR3— >LS BYTE WORD 


SETR 


R5-8 




SET 


R4-R4/2 


; SHI FT RIGHT 


DBNZ 


RS,SHIFT 





SET 
STREGI 
STRCCI 
DBNZ ■ 

JMP 



RTN 
END 



R4»R4 * AND ' H6 
R3,R13 
R4.R1S 
R2 i NEXT 

NRMCND 



;R4 — >MS BYTE WORD 



GO TO NORMALIZE THE RESULT DATA, IF FCB CONTROL 
BIT INDICATES SUCH REQUIREMENT . 
A DIRECT BRANCH IS THE EQUIVALENT OF A "JSR- 
FOLLOWED BY AN -RTN". 



SUBSTITUTE SHEET 



OMPI 
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;PRODUCE LISTING JK VIDE STYLE. 
jRETAIN LOVER-CASE CHARACTERS AS SUCH. 



FERS 



HSTFNC: OR- IMC OF TWO DATA BUFFERS 

SEPTEMBER 7, 1*82 
CHETANA BUCK 



PROGRAM: 
PART NUMBER: 
VERSION DATE 
AUTHOR : 
HISTORY: 

DESCRIPTION: THIS FORTRAN-CALLABLE HOST FUNCTION CALLS UP AN AP -EASED 

AP FUNCTION IN ORDER TO PERFORM "OR- INC* 
OPERATION BETWEEN THE RESPECTIVE ELEMENTS OF TVO AP DATA MEMORY DATA BUF 



.TITLE KORDB - HSTFNC: OR TVO DATA BUFFERS 

. I DENT /V01/ ; IDENTIFIER FOR THE OBJECT MODULE. 

.PACE 



; ESTABLISH ASSEMBLY AND LISTING CONVENTIONS : 



.NLIST TTM 

. DSABL GBL 

. ENABL LC 

.CSECT KORDB 



; PRODUCE LISTINC IN VIDE STYLE. 

; TLAC NON-EX I STENT- SYMBOL REFERENCES AS ERRORS. 
;RETAIN LOVER-CASE CHARACTERS AS SUCH. 

; ESTABLISH A NAMED CSECT. 



; INTERNALLY DEFINED GLOBALIZED SYMBOLS: 
. GLOB L KORDB 



. EXTERNALLY DEFINED GLOBALIZED SYMBOLS: 



. GLOB L KEXFCB 

. GLOBL KVAIT 

. GLOBL MGRM6 7 

. GLOBL COMCTL 



AP MANAGER'S "FCB EXECUTION** SUBROUTINE. 

AP MANAGER'S VAIT ROUTINE 

AP MANAGER'S "FATAL ERROR #-67- EXIT ROUTINE. 

AP MANAGER'S "FCB CONTROL VORD". 



;AP FUNCTION ID'S REFERENCED: 



ORDE- ADS 12. 



;ID FOR "OR- INC" . 
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; SYMBOL DEFINITIONS: 
;NONE 



.TERMINOLOGY: 



FCB - FUNCTION CONTROL flLOCX, READ BY THE AP EXECUTIVE FROM HOST 
MEMORY . 



. PACE 

;>*HOST FUNCTION "KORDB" 

iTKIS HOST FUNCTION CALLS VP A CORRESPONDING AP FUNCTION IN THE AF400. 

;THIS HOST FUNCTION VERSION ASSUMES THAT SOURCE DATA ALREADY RESIDES IN TWO AP 
; DATA MEMORY DATA BUFFERS , AND THAT THE RESULT DATA WILL BE PLACED IN ONE OF THE 
SE 

;AP DATA MEMORY DATA BUFFER . 

;THE CORRESPONDING "OR-1NC" AP FUNCTION SHOULD BE REFERENCED FOR FURTHER 
; INFORMATION. 



, CALL FROM FORTRAN VIA: 



SUBROUTINE CALL: CALL KOROB ( DBU. DBIb ) 

; OR INTEGER FUNCTION CALL, AS: I ERR » XORDB C DBI*. DBtb 5 

; WHERE: 

i DB la m ID OF AF DATA BUFFER TO HOLD RESULT DATA AND CONTAINS SOURCE DAT 

A 

"DBU" MUST BE A S INGLE -WORD INTEGER VARIABLE OR CONSTANT. 
; DBF NEED NOT HAVE BEEN PREVIOUSLY ALLOCATED. 

; IF NOT ALREADY ALLOCATED « DBF WILL BE ALLOCATED ; SIZE WILL EQUAL 

; THAT OF SOURCE DATA BUFFERS. 

IT RESULT DBF WAS PREVIOUSLY ALLOCATED. IT MUST BE OF SIZE EQUAL 
; OR GREATER THAN SOURCE DATA BUFFERS. 

; DBIfc - ID OF AP DATA BUFFER HOLDING SOURCE DATA SET . 

N DB lb" MUST BE A SINGLE-WORD INTEGER VARIABLE OR CONSTANT, 
j DBF MUST HAVE BEEN PREVIOUSLY ALLOCATED IN AP DATA MEMORY. 

DATA BUFFERS DBIb,DBICiDBId#DBIe MUST BE OF EQUAL LENGTH . 



; RETURNS TO FORTRAN WITH: 



ALL ARGUMENTS RETURNED AS RECEIVED. 

FUNCTION EXECUTION "IN PROGRESS" OR "COMPLETE". DEPENDING UPON CURRENT 

AP MANAGER "RETURN" STATUS. 
IF CALLED AS A FORTRAN FUNCTION. THE VALUE RETURNED WILL BE AS SPECIFIED 

FOR REGISTER "RO". RETURNED FROM AN ASSEMBLY-LANGUAGE CALL. 
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UPON ERROR, A STANDARD AP MANAGER ERROR EXIT WILL BE TAKEN. 



,CALL FROM POP- 1 1 ASSEMBLY LANGUAGE VIA : 

; A FORTRAN-COMPATIBLE CALL SEQUENCE. 

i RETURNS TO CALL*1: (ALWAYS) 

; ALL CONDITIONS AS DESCRIBED FOR THE FORTRAN FUNCTION CALL FORM. ABOVE . 

; RO m STATUS VALUE. COEFINED BY AP MANAGER.) 

: "XORDB * DEFINES NO UNIQUE VALUES. 

; RI « UNDEFINED. 

; R2 • UNDEFINED. 

; RS • UNDEFINED. 



;UPON ERROR , VHEN CALLED FROM FORTRAN OR ASSEMBLY LANGUAGE : 

IF A FATAL ERROR OCCURS DURING EXECUTION OF THIS HOST FUNCTION OR DURINC 
; EXECUTION OF A ROUTINE WHICH IT C IN TURN) CALLS (SUCH AS THE AP MANAGER 

; OR AP DRIVER), THE AP MANAGER'S FATAL ERROR EXIT ROUTINE WILL BE CALLED . 

; >- 

.PACE 

KORDE : 

CMPE (R5), «2 ; CHECK FOR PROPER NUMBER OF ARGUMENTS . 



BNE 

TST 

TST 
BNE 

JSR 

CLR 

MOV 

MOV 
MOV 

MOV 
JMP 



ERRORX 
<R3) + 
FCBDON . 



FCKWAIT 
FCBDON 

COMCTL, FCBCTL 

9<R5)*, FCBARL 
*<R5>+, FCBARL+4 

VMGRARC , R5 
KEXFCB 



;IF NOT CORRECT NUMBCR . HANDLE AS A FATAL ERROR 

;STEP POINTER AHEAD TO FIRST ARGUMENT ADDRESS. 

•TEST FOR COMPLETION OF A PREVIOUS OPERATION. 

;A ZERO **DONE** FLAG INDICATES PREVIOUS OPERATION 

; STILL IN PROGRESS. 

;WAIT FOR THE AP TO FINISH PROCESSING 



REINITIALIZE THE "DONE" FLAG . 

RETRIEVE AP MANAGER 1 S COMMON CONTROL WORD IN 
ORDER TO UTILIZE CURRENTLY -SELECTED OPTIONS. 
PLACE IT IN FCB'S CONTROL WORD . 

MOVE RESULT DATA BUFFER ID "A" INTO FCB 
ARGUMENT LIST. 

STEP HOST MEMORY ADDRESS POINTER AHEAD. 

;MOVE SOURCE DATA BUFFER ID W B ** INTO FCB 
ARGUMENT LIST. 

STEP HOST MEMORY ADDRESS POINTER AHEAD. 
< INCREMENTING R3 , ALTHOUGH UNNECESSARY , SAVES 
EXECUTION TIME AND ONE MEMORY WORD.) 
SET UP ADDRESS OF ARGUMENT LIST FOR CALL TO AP 
MANAGER. 

CALL UP THE AP MANACER TO PROCESS THE FCB. 

A DIRECT BRANCH IS THE EQUIVALENT OF A "JSR", 




-153- 



MCRARG: BR 



2* : 



.WORD 
.VORD 
;THIS 



FCBBLK 
STATUS 
LAB EL MARKS THE 



FOLLOWED BY AN "RTS PC" - 

n XEXFCB° VI LI RETURN ITS STATUS VALUE IN 
PDP-11 REGISTER AO AS WEIL AS IN LOCATION 
"STATUS" . 

BRANCH AROUND ARGUMENT LIST. (THIS INSTRUCTIOK 
PROVIDES "NUMBER OF ARGUMENTS " COUNT TOR AP 
MANAGER; THE BRANCH IS NEVER ACTUALLY TAKEN.) 
ADDRESS OF FCB . 
; ADDRESS FOR RETURNED STATUS. 
END OF THE ARCUMENT LIST 



ERRORX. JMP 



MGHM6 7 



STATUS. .WORD 0 
PAGE 

i FUNCTION CONTROL BLOCK: 
FCBBLK: 



i TAKE AN AP MANAGER STANDARD FATAL ERROR EXIT. 
; RETURN STATUS CODE -67 TO INDICATE "IMPROPER 
; NUMBER OF ARGUMENTS IN PARAMETER LIST" . 

jTEMPORARY STORAGE LOCATION FOR RETURNED AP 
; MANAGER STATUS . 



FCBID- 
FCBCTL 
FCEDON 
FCBLNK 



.WORD 
.VORD 
.WORD 
.VORD 
.VORD 



ORDB 

0 

« 

0 

0 



;ID OF THE AP FUNCTION. 
; CONTROL VORD. 

; DONE FLAG. INITIAL 1 2ED TO "DONE - STATE. 

; (HIGH-ORDER. ) HOST MEMORY ADDRESS LINX TO NE« 

; ( LOW-ORDER . ) FCB IN HOST MEMORY. (NONE.) 



FCBPLT: . WORD 
FCBNRC . .WORD 
FCBLEN: .WORD 



;FCB PARAMETER LIST TYPE. (DATA BUFFER ID'S.> 

; NUMBER OF ENTRIES IN ARCUMENT LIST. 

; LENGTH OF ARGUMENT LIST IN HOST MEMORY WORDS. 



FCBARL: 



.WORD 
. WORD 



iRESULT DATA BUFFER ID 
; FIRST VORD - DBF ID; 



•A" ARGUMENT. 
SECOND VORD 



.WORD 
.WORD 



; SOURCE DATA BUFFER ID M B" ARGUMENT 

; FIRST VORD > DBF ID i SECOND WORD • 0. 



. END 
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PROGRAM: 
PART NUMBER : 
VERSION DATE: 
AUTHORS : 
HISTORY: 
DESCRIPTION: 
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APFNC: OR- INC TUO DATA BUFFERS 

SEPTEMBER 7. 1982 
i 

CHETANA BUCH 

THIS AF-BASED AP FUNCTION PERFORMS A LOGICAL 'OR* BETVEE 
EACH ELEMENT OF TVO DATA BUFFERS. 



THIS AP FUNCTION IS NORMALLY CALLED UP BY THE AP EXECUTIVE ■ WHICH 
RETRIEVES THIS AP FUNCTION'S ID NUMBER FROM A FUNCTION CONTROL BLOCK 
READ FROM HOST MEMORY. 



TITLE APFNC: LOCICL-OR 

NAME QORDS , 001 ; NAME AND VERSION FOR THE OBJECT MODULE . 



PACE 

RADIX K ; DEFAULT TO HEXADECIMAL RADIX. 

; INTERNALLY DEFINED GLOBALIZED SYMBOLS : ' CIGLOBL) 

; ENTRY POINTS: 

;NONE 

; SUBROUTINES: 
; NONE . 

; GENERAL SYMBOLS 

;NONE 

; DATA MEMORY LABELS: 

;NONE 

; EXTERNALLY DEFINED GLOBALIZED SYMBOLS: < EGLOBL ) 

ENTRY POINTS: 



OMPI 
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;NON£ 

j SUBROUTINES: 

EGLOBL FLCHK1, FTLABT, PLDBF # NRMCND 
; GENERAL SYMBOLS: 

;NONE 

; DATA MEMORY LABELS: 

i NONE 

; SYMBOL DEFINITIONS- 
i NONE 

;TERMINOLOCY: 
;NONE 



FACE 

PMORC i START OF RELOCATABLE CODE IN PROGRAM MEMORY. 

;>+AP FUNCTION M OORDB ■ 

; This AF Function perform* a logical or between two data, buffers. 

; Call with: parameter lift type - 1. number of arguments 

; parameter list length * 4. 

i word 9 argument Ml -ID of source and result Data B 

; word 10 argument tl - Ignored, 

word 11 argument #2 ■ ID of source Data Buffer M B". 

; word 12 argument 92 • Ignored. 

; Eaits to AP Eseoutive'a "Fatal Abort" Service: 

■ t If an error Is found by AP Service Subroutine 1 PLDBF ' or 'PLCKK1 

; >- 

PACE 

DEFINITION OF THE FUNCTION ID FOR THE AP EXECUTIVE FUNCTION TABLE: 
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func 



%D8U, OOROB 



; FUNCTION ID AND ENTRY POINT NAME . 



QORDH; 



SETR 
SETR 
SETR 
JSR 



Rl-1 
R2.2 
R3-4 
PLCHK1 



;SET UP TOR CALL TO PLCHKl 
; PARAMETER DESCRIPTOR TYPE 
;• OF ARGUMENTS 
;• OF VORDS IN ARC LIST 

;CO CHECK CORRECTNESS OF VALUES IN FCB . 



JMP 

JSR 
JMP 
SET 
JSR 

JMP 
SET 



FTLABT 

PLDBF 

FTLABT 

Rll-Rl 

PLDBF 

FTLAJJT 

R2*RJ*1 



; RETURNS HERE IF ERROR 
;IF OK, RETURNS HERE 



jPOINTS TO SOURCE /RESULT BUFFER 

;R1 POINTS TO SECOND SOURCE SUFFER 
; LENGTH ( ♦ FOR BEX/NSN OF BUFFER ) 



OR: LDREG R14.R11 

LDRECI Rl5,Ri 

SET R 1 4 »R 1 4 ' OR ' R 1 5 

STRECI RM.RU 

DBNZ R2 # OR 



FETCH DATA FROM FIRST SOURCE BUFFER 

ALSO FROM SECOND 

LOGICA1-OR 

STORE RESULT BACK ZN SOURCE 1 BUFFER 



JMP 



NRMCND 



;CO TO NORMALIZE THE RESULT DATA. IF rCE CONTROL 
; BIT INDICATES SUCH REQUIREMENT. 



RTN 



A DIRECT BRANCH IS THE EGUI VALENT OF A 
FOLLOWED BY AN M RTN M 



•JSR" 



END 
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STAGE MOVEMENT AND IMAGE ACQUISITION 

STACET.MC - THIS MODULE LOADS ALL OF THE MODULES USED IN M STAGET M 



•st PDPID 

ixt atxllb 

.st DKtSC 

.It VAOD 

•xt STCREC 

•it 22BADDR 

•St STCCRB 

lit . STCCOM 

• xt CMOTOR 

•it C 5 , 1 3 INSPLAN 

•xt SGROOT 

»vi STAGE 



INTEGER VECTOR ROUTINES 



IF < LOOKUP < • VADD ) > 

PRINT "VADD ALREADY LOADED" 
END FILE 

END IF 
.MAC 



VADD — ADD TWO VECTORS OF ANY LENGTH 

CALL: VADD ( IVECl . 1VEC2 . LENGTH > 



CALCULATES: 



I VEC2 ( I > 



IVECl ( I ) ♦ IVECl ( I ) 



ENTRY VADD 

KOV <MSP>+ , RO 

MOV CMSF)+ . Rl 

KOV (KSP3+ . R2 



0« : 



ADD (R2>+ 
DEC RO 
BNE OS 



CRO + 



GET THE LENGTH 

GET THE ADDRESS OF IVEC2 

GET THE ADDRESS OF IVECl 

ADD THE COMPONENTS AND INCREMENT THE POINTERS 
DECREMENT COUNTER AND CHECK DONE 



NEXT 



VSUB — SUBTRACT TWO VECTORS 
CALL: VSUB < IVECl , IVEC2 

CALCULATES: IVEC2 (13:- IVEC2 



. LENGTH ) ■ 
II). IVECl < I > 




WO 84/01212 



-158- 



ENTRY VSUB 

KOV (MSP)* , RO 

MOV (MSP)* , Rl 

MOV (MSP)* . R2 



LENGTH 

ADDRESS OF XVEC2 
ADDRESS Of IVEC I 



1« : 



SUB (R2)+ 
DEC RO 
BNE If 



SUBTRACT COMPONENTS AND INCREMENT POINTERS 
DECREMENT COUNTER AND CHECX DONE 



NEXT 

VKASK — MASK ALL THE ELEMENTS IN A VECTOR 
CALL: VMASK < XVEC , MASK , LENGTH ) 

CALCULATES: IVEC ( I ) :» IVEC ( I ) *nd MASK 



ENTRY VKASK 

MOV (MSP)* , RO 

MOV (MSP)* , Ri 

MOV ( MS F ) * , R2 

COM RI 



LENGTH 
MASK 

ADDRESS OF IVEC 
COMPLEMENT THE MASK. 



BIC DOES* "SRC DST 



BIC Rl 
DEC RO 
BNE 2S 



(R2) ♦ 



AND THE COMPONENT WITH MASK AND INCH POINTER 
DECREMENT COUNTER AND CHECK DONE 



NEXT 



VMAX 
CALL: 



FIND THE INDEX OF THE MAXIMUM VALUE IN A VECTOR 
INDEX VMAX < IVEC . LENGTH ) 



ENTRY 


VMAX 










MOV 


(MSP)* , RO 


; LENGTH 






MOV 


(MSP > , Rl 


; ADDRESS OF IVEC. XEEP ON STACK 






MOV 


Rl . R2 


f ASSUME 1ST ELEMENT. SAVE ADDRESS OF 1ST ELT 




MOV 


CRI) , R3 


; SAVE VALUE OF 1ST ELEMENT 




3« : 


CMP 


R3 . (Rl) 


; COMPARE CURRENT MAX TO COMPONENT 






BGE 


4* 


; IT MAX > COMPONENT LEAVE IT 






MOV 


(Rl) . R3 


; NEW MAX VALUE 






MOV 


Rl . R2 


; NEW ADDR OF MAX VALUE 




4S : 


ADD 


t 2 . Rl 


; INCREMENT ARRAY INDEX 






DEC 


RO 


; DECREMENT COUNTER AND CHECK DONE 






BNE 


31 






8$ : 


SUB 


CMSP) , R2 


\ ENTRY FOR VMIN ALSO. SUBTRACT ADDR OF MAX 


VAL 


K 


MOV 


R2 , (MSP) 


; FROM ADDR OF IVEC AND STORE DIFFERENCE ON 


STAC 




ASR 


(MSP) 


i DIVIDE RESULT BY 2 TO GET NUMBER OF WORDS 





NEXT 



; VMIN 
; CALL: 



— FIND INDEX OF MINIMUM VALUE IN A VECTOR 
INDEX VMIN ( IVEC . LENGTH ) 
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ENTRY VMIN 

KOV (MSP)* , R0 
MOV (MSP ) , Rl 
KOV Rl . R2 
KOV (Rl> , R3 

3S : CMP R3 , <Rl ) 

Bit 4t 

MOV (Rl> , R3 

mov 8i . r: 

69 : ADO • 2 , Rl 

DEC RO 
BNE SI 
JMP 81 



; LENGTH 

; ADDR OP IVEC. KEEP ON STACK 

; ASSUME 1ST ELT. STORE ADDR OF 1ST EtT 

; STORE VALUE OF 1ST ELT. CURRENT MAX 

i COMPARE CURRENT MAX TO COMPONENT 

; TP MAX ) COMPONENT. LEAVE IT 

; NEW MAX VALUE 

; NEV MAX VALUE ADDR 

; INCREMENT ARRAY POINTER 

; DECREMENT COUNTER AND CHECK DONE 

i CALCULATE INDEX AND RETURN 



VSDIV ~ DIVIDE A VECTOR BY A SCALAR 

CALL: VSDIV < IVEC , SCALAR , LENGTH 3 

CALCULATES: IVEC < I ) IVEC < I > / SCALAR 



ENTRY VSDIV 

MOV (MSP)* , R3 
MOV (MSP)* , R2 



7$ : 



MOV 9 0 <MSP) , Rl 
SXT RO 



OIV R2 
MOV RO 



RO 

e o (MSP) 



LENGTH 
SCALAR 

ADDR OF IVEC STILL- ON STACK . GET ELEMENT 
IF (0 SET HIGH U BITS TC -1 ELSE CLEAR THEM 
32 BIT DIVIDE. QUOTIENT IN RO . REMAINDER IN Rl 
STORE QUOTIENT BACK IN ELEMENT 



ADD • 2 
DEC R3 
BNE 7 5 

CLR (MSP)+ 
NEXT • 



(MSP) 



UPDATE THE ARRAY POINTER 
DECREMENT COUNTER AND CHECK DONE 



POP THE ADDRESS OP IVEC OFF STACK 



VSMUL — MULTIPLY A VECTOR BY A SCALAR 
CALL: VSMUL < IVEC SCALAR , LENGTH 



CALCULATES: 



IVEC ( I ) IVEC ( I > * SCALAR 



ENTRY VSMUL 

MOV (MSP)* ,*R3 

MOV (MSP)* , R2 
9$ : MOV e 0 CMSP) , Rl 

MUL R2 . Rl 

KOV Rl , @ 0 (MSP) 

ADD « 2 , (MSP) 

DEC R3 

BNE 91 

CLR (MSP)+ 
NEXT 

.LOCAL 



LENGTH 
SCALAR 

ADDR OF IVEC STILL ON STACK - GET ELEMENT 
MULTIPLY. ONLY 14 BITS SINCE SRC IS Rl 
PUT RESULT IN ELEMENT 
UPDATE ARRAY POINTER 
DONE? 



POP ADDRESS OF IVEC OFF STACK 



; RESET LOCAL SYMBOLS 



; VPOS — CONVERT ALL NEGATIVE ELEMENTS IN A VECTOR TO POSITIVE 



OMPI 
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; SET ALL POSITIVE ELEMENTS TO IVAL ... IF IVAL«0 LEAVE ALONE 

; CALL: VPOS C IVEC . IVAL , LENGTH > 

i CALCULATES: IF < IVEC < I > < 0 ) IVEC ( I ) :• 0 END IF 
; IF < IVAL 00 > IVEC ( I ) :« IVAL END IF 

ENTRY VPOS 





KOV <MSP>* , 


R0 


; LENGTH 




MOV (MSP) ♦ , 


Rl 


; IVAL 




HOV (MSP>* , 


R2 ; ADDRESS OF IVEC 


0 % : 


TST (R2 > 




; TEST THE COMPONENT OF 




8FL If 




IF >- 0 GO TO II 




CLE <R2) 




; SET ELEMENT TO 0 




8R 2$ 




LOOP 


It: 


TST Rl 




TEST IVAL 




SEQ 21 




IF 0 IGNORE 




MOV Rl , <R2) 




SET ELEMENT TO IVAL 


2$: 


ADD 1 2 , R2 


i 


UPDATE ARRAY POINTER 




DEC R0 


; DONE? 




8NE OS 








NEXT 







i VOOT — TAKE SCALAR PRODUCT OF TVO VECTORS 

; CALL: PRODUCT :• VDOT ( IVEC1 , IVEC2 , LENGTH > 

; CALCULATES: PRODUCT SUM-OVER-I ( IVECl ( I ) • IVEC2 ( I ) ) 

ENTRY VDOT INTEGER 



MOV <MSP>+ , R3 
MOV (MSP)* , R2 
CLR RO 



LENGTH 

ADDRESS OF IVEC2 
CLEAR SUM 



3»: 
EC1 



MOV CR2W , Rl 
MUL e 0 (MSP) , Rl 

ADD Rl , RO 
ADD t 2 , (MSP > 
DEC R3 
BNE 31 



; GET ELT OF IVEC2 AND UPDATE ARRAY POINTER 

; ADDR OF IVECl IS STILL ON STACK. GST ELT OF IV 

; ADD COMPONENT PRODUCT TO SUM 
; UPDATE IVECl ARRAY POINTER 
; DONE 



.END 



MOV RO , <MSP) 
NEXT 



STORE SUM ON STACX 
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pirmtttr VCR :■ 172410k 

pareaeter BAR :- 272412k 

parameter CSR :■ 172414k 

pirinitic DBR :« 172416k 



OKA word count register. 
Bus address rtgister for DMA . 
Control stilus register. 
Data buffer register . 



long 



PHYADR 



Physical <22-bit) address of the buffer. 



integer OUTLN < 23*. ) 



define ATIOPAGE 
wi th M_I0PACE 

ATTRC ( "lOFAGE" » U0O0OX ) 
• nd 



(w Va.lt until DMA operation is complete. (Monitors EUSY bit.] *> 

define VBUS'Y 

while ( peek < CSR ) AND 200k > 

repeat 
ind 

define RDLN 

integer BUFF < 1 ) tO * 1 yO yl 
PHYADR ;« 2 2ADDR < BUFF 5 
poki ( 130000k ♦ XO - 1 , DBR ) 
poke < tHOOCk ♦ YO , DBR ) 



poke ( - U / 2 . VCR > 

; poke < — ( XL * Yi ) . VCR ) 

poki ( 1 sword ( PHYADR ) , BAR ) 
poke C 0 , DBR > 

pokt < nsword < PHYADR ) + 1 , CSR ) 



« 
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ch&r buf < 30 ) 
integer bufptr 
int*g*r ttnprO 
.ate 



TERM C 5 > 



Ubtl CMOTAST 
mo v 
aov 
aovb 



rO , e • ptr C teaprO ) 
t # ptr ( bufptr ) , rO 
<rp>* . (rO) 



. tnd 



cmpb 

sne 

olrb 

aov 

aov 

• at 

aov 
inc 
aov 
•at 



t 13k . <rO>* 
01 

<rO> 

• 21. , -<rp) 

• byt.wd ( 2 33. 
377k 



-<rp> 



£ • ptr ( teaprO ) , rO 

» # ptr < bufptr ) 

• bytewd ( 1 115. > , -Up) 

377k 



; rtturn Croa est 



aake 1 t CRBMOT tAtttch 1410k CMOTAST 0 but NO_OP ; dtttera 



defint CRBMOT 
epush oich 
cieh :- MOTCH 
I CRBMOT 

end 

aeke *wt«« rixcell byt«wd ( 2 41 . ) 
aekt 'CLEF! rticiU bytewd i 2 31. > 

dilim btwrl 

integer buff 

bufptr :m but 

CLEFS i 21. ) 

wrl ( MOTCH buff ) 

wtst ( 21. ) 
end 



ptrantttr CRCKR :«. 15k 

record DEV_REC 

integer DEVNUM 
long tOLIMIT 
long UPLIMIT 

endr «cc r d 
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DEV_REC XAXIS YAXIS ZAXI3 

wi tn xaxis 

BEVMUM *scii 1 
with YAX1S 

DEVNUtt :» *«cli a 
with ZAXIS 

DEWUM :« tfcli 3 

chtr BUFF ( 20 > 
inttgtr STEPSIZE 



d.fint INITMOT 

MOTCH :- open i TERM * 'rwi J 
poki ( 2 . Jdb < HOTCH ) > 
GRBtJOT 

end 



dtfino MOTCOM command 
inttgtr CKAR 
#tyo < DEVNUM ) 
iter cadent 

ityo ( CHAR ) 



n* ta.r g 

loop 

•tyo ( CRCHR > 
moodi ( BUFF ) 
Mwrl ( BUFF ) 
tnd 



; Switches tho bo* on 

doc tut 8XON 

HOTCOM ascii E 
t «nd 

; 3wi tchts tht bo» off 

defint axorr 

KOTCOM atcii F 

• nd 

define JON 

MOTCOH ateii J ascli 1 

tnd 

d*fint JOFF 

HOTCOM tscxl J ttcii 0 

• nd 



SU 



L,St'i7'*J7E 



SHEET 
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; Stop the bovi 

dtfine STP 

HOTCOK ascii 5 
tnd 

define VBUSYM 

MOTCOM ascii R 

end 

; Normal mod* it single move mod*. The Botox acecltrttis 

i to the programmed velocity , runs at constant velocity 

; for a predetermined ptriod and decelerates and stops when 

; total numbtr of counts programmed by position have bt«n sent . 

do fins NORMAL MODE 

MOTCOM ascii M . ascti N 
md 

# 

; Continuous node accelerates ths motor to the programmed velocity 
; and holds that velocity until stopped. 

i define CONTKODE 

; MOTCOM ascii H , ascii C 

; end 



Alternates the defined move in opposite directions 
until stop is pressed, 
define ALTKODE 

MOTCOM ascii M , ascii A 
end 

This routine reports relative position at the end of the move 



define RELPOS 

•tyo < DEVNUM > 

• tyo i ascii P > 

■ tyo < .4 0k ) 

encode < BUFF > 

BFVRL < BUFF > 
end 

; Position report back of the motor shaft during move. 
; New position at tvery 4 msec, 
define CURPOS 

MOTCOM aseli V , ascii 2 

snd 

i Absolute position relative to the last time the position 
; counter w«s cleared. 

define ABSP05 
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styo ( DEVNUM ) 
liyo ( ascii X ) 
Myo ( ascii 1 ) 
• tyo < 40k ) 
tncod* ( Burr ) 

BFVRl ( BUFF ) 
; MOTCOM ascii X , ascii 1 
end 
* 

; Clear the tbsolute position counter 
def In* CLEAR X ND 

MDTCOM ascii X , ascii 0 
«nd 

! 

; Changes the report back ASCII strings Into long integers. 

def In* CONVERT long 

bpoke ( 0 , bp < bufptr - 1 > ) 

inp buf 

fol Off 

word drop 

word drop 

• ol on 

If ( littoral ( tbuf ) > endlf 
CONVERT :. iliral 
end 



dftftne CONVERT long 
avttr ( BUFF , 10 ). 
rdl ( MOTCH . BUFF > drop 

it ( Hitoral ( BUFF ) > CONVERT :« llval tndif 
end 

Sit op the lower limit for position 
define SETLO 
ABSFOS 

iOLIKIT :* CONVERT 
end 

Set up the upper limit for position, 
define SETUP 
ABSPOS 

UFLIMIT :» CONVERT 
end 

Set the acceleration of the motor shaft In rps/s 



define ACCEL command 
real N 

if ( emdent ««0 ) N 0.2 endlf 
• tya < DEVNUft > 
ttyo ( ascii A ) 
mvttr ( BUFF , 10 ) 



SUBSTITUTE SHEET 
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print tp aseii 0 . «f i 3 , H , tn 

• tyo < CRCHR ) 
encode ( BUFF > 

; wrl < MOTCH , BUFF ) 

bfwrl < BUFF > 
; rdl < MOTCH , BUFF ) drop 
«nd 

; Set the delay desirtd between two commands in seconds. 
<» 

define 71 HtDELAY eoaaind 
roil N 

if ( cadent ««0 ) N :» 1.0 endif 
ttyo ( DEVNUH ) 
•tyo ( ascii T ) 
nvxtr < BUFr , 10 ) 

print tp licit 0 , tf 6 3 . N , #n 

• tyo ( CRCHR ) 
encode ( BUFF > 

; wrZ ( KOTCH . BUFF ) 

bfwrl i BUFF ) 
. rdl ( KOTCH . BUFF > drop 
end 
») 

i 

, Set the velocity of motor in real values 



define VELOCITY command" 
real N 

if ( emdent »«0 ) N :« 0.1 endlf 
Stye < DEVNUM ) 
ttyo ( ascii V > 
svtir C BUFF , 10 ) 

print tp ascii 0 , tf A. 3 , N , fn 

•tyo ( CRCHR ) 

encode c BUFF > 
; wrl ( MOTCH . BUFF > 

bfwrl C BUFF > 
; rdl ( MOTCH . BUFF > drop 
end 



Set the motor position in <+} ve or <-> vt direction 
with rtspect to the current position in terms of motor 
pulses. 25000 pulses /rev and 10 pulses ■ 1 micron. 



define POSITION command 
long N 
• tyo < DEVNUM* ) 
ttyo ( ascii D ) 
nvrtr ( BUFF . 10 > 
print «i 0 , N , tn 
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ft yo < CRCHR ) 

encode C 8UFF > 
; wrl ( MOTCH , BUFF ) 

bfwrl ( BUFF ) 
; rdl < MOTCH , BUFF ) drop 
tnd 

; Set »cale for number motor pulses per least significant digit 
; of position data. The velue of scale factor is integer and 
; varias from 1 to 255 inclusive. 

; define SCALEFACTOR camaand 
; integer MUM 

stye < DEVNUH ) 

* tyo < ascil U ) 
, ttyc < aseii S ) 
j print »i 0 . NUM . In 
; ttyo < CRCHR > 
; sncodfi < BUFF ) 

wrl ( MOTCH , BUFF ) 
; :dl ( MOTCH , BUFF ) drop 
; and 

i Read the set seal* factor. 

; define READSCALE 

MOTCOM aseii U , aseii R 
. end 



; Start the neve 

define STT command 

i TOTAL ♦« stnd < STEPS 1 2E ) 

; if ( ( TOTAL ) UPLIMIT ) or C TOTAL < LOLIMIT > > 
; BEEF print "LIMITS EXCEEDED" 

else 
MOTCOM aseii G 
; endif 
tnd 

; Executes normal mode 

; define SETMOTOR command 

; * integer STEPS I ZE 

; if ( emdent »-0 ) 

; STEPSIZE :« ASTEPSIZE 

endif 

BXON 

mv«er C BUFF , 10 ) 

NORMA LMODE 
; ACCEL 1.0 
; VELOCITY 1 . 0 

POSITION atnd ( STEPSIZE ) 
; tnd 



OMPl 
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Sets to the Absolut* position desired. 

define SETABS 

integer STEPS IZt 

Joc*l 

long RELSTEP 
AXON 
ABSPOS 
CONVERT 

RELSTEP :» LLVAL - XTND < STEPS I Z£ ) 
mvxer ( BUTF , 10 > 

NORMAL MODE 
ACCEL i .0 
VELOCITY 1.0 
POSITION RELSTEP 



This program is an attempt to use an iterative method to determine 
square coots of real numbers. 
*> 

<* Calling sequence: 

SQUAREROOT :« SORT ( ARC! ) 

*> 

reel POSRAD 
real OLD NEW 

define SORT real 
real RAD 

local 

real ACCUR 
POSRAD FABS ( RAD > 
ACCITR :» 0.000001 * POSRAD 
OLD :x 0.00 
NEW :« 1. 00 

while C FABS C NEW * NEW - POSRAD > >« ACCUR ) 
OLD ;« NEV 

' NEV :» ( OLD ♦ ( POSRAD / OLD ) ) / 2.0 
r epeat 
SORT :^ NEW 
end 
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ext 
txt 
tit 
• xt 



rzwov 

V1DAUTO 
ERGPOS 



FVIDFOCUS 



■xt FOCUS 

avstr < "steget" , promstr ) 

integer STCCBF < 13. ) 
integer STPFLAC 

define CONNECT_2_MASTER 
STPFLAC off 
INITREC 
begin 

RECEIVE ( STCCBF ) 
until < STPTLAG > 
end 



define RECONNECT 
SET ( SYNC 2 ) 
begin 

RECEIVE < STCCBF ) 
until < STFTLAG ) 
•nd 



integer TMPICH TMPOCH 

define STOPCO 

integer TERM 
TMPICH :« cich 
TMPOCH :» coch 

cich open < TERM , ' rw» > 
. coch : - eieh 

poke < 2 , fdb ( coch > ) 

&t tern 

STPFLAC on 
end 



dtfine STRTCO 
de t term 

close ( cich ) 
cich :« TMPICH 
coch :* TMPOCH 
STPFLAC off 
RECONNECT 
end 

dtfine STCINI 

mvstr < "TT2:" , TERM > 
IN2TSOJCX 
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mvftr ( "TT3: M . TERM ) 
INITMOT 
with ZAX1S 
BXOK 
BXON 
end 

define INITSTC 
; STCINI 

OFFX :m 01 

OFFY :» 0L 

ALPHA :« 0.999635 

BETA :« 0. 01*173 

CALFLG OFF 

CONNECT_2_NASTER 
end 

* RE START :» BASE INITSTC ; RESTART FOR DEMO PACKAGE 

SAVE VFSTACET 



; NAME . Z_MOVE.KG 

THIS PROGRAM MOVES THE MOTOR IN ANY DIRECTION 

THRO 1 THE STEPSI2E SPECIFIED IN THE PROGRAM IHITZ . •> 

i 

define Z_MOVE 

STT 
end 

NAME : 1NITZ.MG 
; \ 
<* THIS PROGRAM INITltlZES MOTOR PARAMETERS. THE STEP 

SIZE HAS TO BE SPECIFIED. { INITZ C STEPSIZE > ) ■> 

define INITZ 

vith zaxis 
bxok 

mviir ( BUFF , 10 > 
NORMAL MODE 
ACCEL 1.0 
VELOCITY 1 .0 
end 

; NAME : INITZ l.MG 



<* THIS PROGRAM INITILIZES MOTOR PARAMETERS. THE STEP 
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S1ZE HAS TO BE SPECIFIED. ( INITZ ( STEFSIZE ) ) «> 

define INT1 
with ZAXIS 
8XON 

avier ( BUFF , 10 ) 

NORMA LMODE 

ACCEL 1.0 

VELOCITY 5.0 
• nd 
« 

; NAME : INITZZ.MG 

<« THIS PROGRAM 1NITILIZES MOTOR PARAMETERS. THE STEP 

SIZE HAS TO BE SPECIFIED. ( INITZ < STEPS I ZE > ) «> 

i 

define INT2 
with ZAXIS 
BXON 

meter < BUFF . 10 ) 
NORMAL MO DC 
ACCEL 2.0 
VELOCITY 7.5 
end 

i 

define UPFAST 

long STEP 10 



INTl 

STEPl 0 :« ( LABS ( STEP10 ) > 
POSITION STEP 1 0 
Z_MOVE 

end 

define DNFAST 

long STEPS 

INT2 

POSITION — i LABS < STEFB > > 
if ( STEP8 ) 13990QL ) 
pt int " ERROR1 " 

else 

S_MOVE 

end i f 
end 

define UPTST 

INTEGER STEP1 STNUM 

INITZ 

STEPl < ABS < STEP1 > ) • 

POSITION *tnd ( STEPl ) 
iter STNUM 

Z_MOVE 

loop 
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dtdnt DNTST 

integer STEP2 STNM 

INIT2 

POSITION itnd i — ( ABS C STEP 2 ) ) ) 
I ttr STNK 

I_HOVE 

J o op 
tnd 



<* Set the biit, gain, ind integration time. * 

B SETPARM ( BIAS CAIN IT > 

define SETPARH 

integer Bl CI II 

SET. BIAS ( Bl ) 

SET. CAIN < CI ) 
B SET. IT i It ) 



end 



define DARKFARM 

SET. IT ( 235 > 
SET. BIAS ( 0 > 
SET. GAIN ( 10 ) 
SET. SENS 

; CAINAOJUST 
; SET . SENS 



end 



define BR1GHTPARK 
SET. IT ( ?4 ) 
SET. BIAS < 0 ) 
SET. CAIN < 1C ) 
SET. SENS 
; . CAINAOJUST 
; SET. SENS 
end «> 



SET. SENS 





-173- 



inttgtr MRXT* ( 0 > 

.word byttwd < 3 . 23. ) 

.word 23. 

.blkw t 

.word 1 

.word 0 

integer VTSE« < 0 > 

.word byttwd ( 2 , 41. ) 

.word 23. 

define DELAY 

integer DTIK 

MRKT* ( 2 > :« DTIM « I 

RSXDIR ( MRKT$ ) ioerr 

RSXDIR < VTSE* > ioerr 
•Ad 
• 

<* 

mtt 9 tc FtACl STEPS PR MAXVAL NSTEP PR 2 FCFUN PCENT ?R1 
integer OFF1 LOCI RFLAC 
long ZO 

; PROrUNC :« AVERPTR 



NAME . AUTOFC 



define COARSE 
local 

integ.r TEST FLAGA CURX CURY FLAC8 

INIT2 

STEPS 10 

STEPS :« t ABS < STEPS ) > 
• POSITION *tnd ( STEPS ) 
POKE ( 1000k , OBR > 
FLAC1 OFF 
MAXVAL OFF 
CURX OFF 
CURY OFF 
FLAGS OFF 

begin 

FLAG6 OFF 
STT 

RDLK ( OUTLNl , 128. , 383. , 256. , 236. > 
VBUS?Y 

POKE ( 100 0k . DSR > 
CURY :« cue < FCFUN ) . 
pr snt SLOPE 
; with ZAXIS 

; BXON 
; ABSPOS 
; PRINT CONVERT 

; if < CURY > MAXVAL > 



SUE3TI7UT2 £HEET 
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; KAXVAL CURY 

; endif 

; incriotnt CURX 

; FCENT :» iecel < CURY . 100 , KAZVAL > 

; if C ( FCENT < PRI ) end ( FLAGS —0 ) ) 

; BEEP 

; DNFAST ( 10L ) 

; DNFAST ( 10 01 ) 

; DELAY ( I ) 

; UPFAST t 20L > 

; INXTZ 

; STEPS :» 10 

; STEPS :* ( ABS ( STEPS ) ) 

; POSITION *lnd < STEPS > 

: DELAY ( 1 > 

; PR2 :« Isetl ( MAX VAL 90 100 ) 

i MAXVAL OFF 

FLAC6 ON 

; FlACfl on 

$ end if 

until ( CURY >* FR2 ) 

end 



define VERYFINE 



local 

integer PERCENT STOP CURX CURY 
STEPS -3 
IN1T2 

POSITION atnd ( STEPS ) 

POXE ( 1000k , DBR 3 

KAXVAL OFF 

STOP OFr 

NSTEP OFF 

CURX OFF 

CURY OFF 

begin 

STT 

RDLN ( OUTLN1 , 128. . 383. . 256. , 256. > 
VBUS?Y 

POKE < 10001c . DBR ) 
CURY esec ( FCFUN ) 
if < CURY > KAXVAL ) 

MAXVAL :- CURY 

end if 

PERCENT :« iscel < CURY , 100 , MAXVAL > 
if < CURY <> MAXVAL ) 

increment NSTEP 

if < PERCENT < PR ) 
STOP ON 

end if 

endif 
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incr«o«nt CURX 
until C STOP ) 
i DNTST < NSTEP I > 

■ nd 



defint AtfTOFC 
LOCAL 

long ZPOS 

COARSE 
VERYFXNE 
; U1TH ZAXIS 
; ABSPOS 
; ZPOS CONVERT 
; PRINT ZO 
; if ( RFLAG »« 1 ) 
, it ( LABS < 20 - ZPOS ) > 20L ) 
; SET 
i POSITION < ZO - ZPOS > 
; STT 
; DELAY ( 2 > 
; tl st 

; ZO : « ZPOS 

, tndif 
j. else 



; ZO : » ZPOS 
i end if 
; PRINT ZO 
• nd 



STEPS :m 20 

mazval orr 

NSTEP OFF 

PCFUN :•' b&ti SLOPE 

PR :« 180. 

PR2 1000 

PRi :« 75. 

OFF 1 50 

« > 
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integer EXCH DIROV COL 

long orrx offy stx sty stxp styp sorrx boffy corrx 

long XCOR YCOR VATXCOR VAFYCOR STXCOR STYCOR CORRY 

real ALPHA BETA XPITCH YPITCH 

integer FXSIZE FYSJZE OVLX OVLY FXIND FY INS 

integer FVX 

integer FVY 

integer FRX 

integer FRY 

BOFFX *• 0L 
BOFFY 0L 

ate 

Ubel Stlys 

: nov rO . 9 » ptr ( tenprO > 

mov » • ptr < bafptr ) , rO 

movb <rp>+ . (rO) 

cmpb t 13k , Cr0>4 

bne OS 

etrb -(rQ) 

aov t 21. f -<rp> 

sot i bytewd ( 2 33. ) , -Crp) 

tmt 3771c 

0$: 



aov e • ptr ( ttmprO ) . rO 

inc & • ptr C bofptc ) 

mov « bytewd < i 115. ) . -<rp> ; return from act 

ent 377* 

. end 



ntiee 'Sgrabs Sattach 1410k Sttys 0 base NO_OP ; detterm 

def ine grab* 

apmh eich 

cich « bach 

•grabs 

apop 
end 



define bwc I 

integer buff 

bufptr :» buf 

CLEFS ( 21. ) 

wrl ( bxch buff ) 

wt se C 21 . ) 
end 



<* initialises and opens a channel for ergolas communication *> 
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define IN1TB0XX 

BXCH :o optn ( TERM , 'm ) 

poke < 2 , fdb < SXCH ) ) 

grabs 
and 

<* routine to itnd an ASCII character at a t tat *> 

define BXCOM command 
integer CHAR 
iter omdcnt 

ttyo < CHAR > 
nxtarg 

loop 

ttyo < CRCHR ) 
encode < BUFF ) 
bwrl ( BUFF > 
end 

<« routine to move the stage to the hom« coordinates *) 

define HOME 

BXCOM ASCII H 
end 

<* routine to move the stage to the desired absolute coordinates 



MOVE ( x-coordinate , y-coordmete : both are long integers ) *> 

define MOVE 

long XMOV YMCV 

ttyo < ASCII M ) 

ttyo ( ASCII X > 

mvier ( BUFF , 10 ) 
print el 0 XMOV . , ■' . «H 

ttyo < ASCII Y > 
print ttl 0 , YMOV , »N 

ttyo ( 1SK ) 
encode < BUFF ) 
bwrl ( BXCH , BUFF ) 
end 

<* routin* to r«qnift the current location of the stage wrt the hone 
coordinate *> 

define FOSREG 

BXCOM ASCII F 

print STF! < BUF ) 
end 

<* tplits the transmitted position string into x-coordinate «> 

define SFLX long 
local 
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tnteger ALX ( 10 ) 
•FIELD ( BP < BUF > ♦ 2 , 7 , 7 ) 
ENCODE < ALX ) 
If ( LLITERAL < ALX > J 

SPLX LLVAL 
endif 
end 

<* splits the transmitted position string into y-coordinatt *) 

defin* SFLY long 
Ueal 

integer ALX < 10 ) 
triELD < BP ( BUr ) ♦ 12 # 7 . 7 > 

ENCODE ( ALX ) 
if I LLITERAL C ALX > > 

SPLY :« LLVAL 
tndif 
end 

(» Attachement to the impaction plan and status data bast *> 

define ATIFSDB 
WITH H_IPSD8 

ATTRC C -IPSDER" , 1AO0QOX ) 
ptr ( IP£DB_REC ) :» VNDADR 
with 1NSP_FLN 



with INSP_DATA_BASE 

tnd 

<* transforms the stag* coordinates into tht wafer coordinate system ■> 



define STVAFTR 

real POSX POSY 
VAFXCOR LFIX ( ALPHA * POSX ♦ BETA • POSY > 
VAFYCOR LFIX < — BETA * POSX ♦ ALPHA * POSY 3 
end 

<« transforms the wafer coordinates into the stage coordinates «> 

def in* VAFSTTR 

real POSX POSY 
STXCOR LFIX ( ALPHA * POSX 4 C — BETA « POSY ) > 
STYCOR :• LFIX < BETA * POSX ♦ ALPHA « POSY ) 
end 

<* computes the s-coordinate of tht desired die *> 

dtfine D1EX REAL 

DIEX :« ( FLOAT I DIROV ) * XPITCH ) 

end 

<* computes the y-coordinate of the desired die •) 
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define DIEY REAL 

DIEY ( FLOAT i COL ) » VP ITCH ) 

end 

t* computes the s-coordlnate of the desired feature *) 

define FVAX integer 

FVAX :» FWX 

end 

<* compute* the y-coordinate of the desired feature *) 

define FVAY integer 
FVAY :« FVY 

end 

<» computes the ^-coordinate of the desired frame *) 

d«f ine FRAJf integer 
local 

integer C 

C : » FRX 

FRAX C * FXIND * ( ( FXSIZE * < 100 - OVLX ) ) / 100 ) 
end 

<• computes the y-coordinate of the deslrad frame *> 



define FRAY integer 
local 
integer C 
C :» FRY 

FRAY :» C ♦ FY IND » < < FYS12E * < 100 - OVLY > ) / 100 > 
end 

<» computes the ^-coordinate of the desired frame in a given feature in c 
given die *> 

dec ine FRAKX 
local 
real ALX 
integer APX AXX 
ALX DIEX 
APX :» FVAX 
AXX :» FRAX 
XCOR :- stnd < APX ♦ AXX ) ♦ LFIX ( ALX ) 
end 

<* computes the y-coordinate of the desired frame in a given feature 
in a given die *> 

define FRAHY 
local 
real ALX 



-rvr?T? SI-SEET 
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integer APX APY 

ALX ;» DIEY I 

AFX :. FVAY 

APY . - PRAY 
YCOR :« xtnd < APX ♦ APY ) ♦ LFIX I ALX ) 
end 

<« defines a baoklash oerrection cn the coordinates depending 
on the direction of aove *> 

STXP OPPX 
STYP OPFY 

define BLCORR 
Iocil 

integer LOIR LDIR1 LDIR2 LD IKS 
LDXRl ON 

loir: ok 

if C STX >» STXP ) 

1DIR off 
• 1st 

LDIR on 
end if 

if C LDIR <> LDIR1 ) 

LD1RI :» LDIR 
if ( STX < Ot J 

STX :« STX - BOFFX 



else 

STX :* STX + BOFFX 
endif 
endif 
if ( STY >- STYP ) 

LDIR3 of f . 
else 

LDIR3 on 
endif 

if C LDIRI <> LDIR3 ) 

LOIK2 LDIR3 
if f STY < OL ) 
STY :m STY - BOFFY 
else 

STY := STY ♦ BOFFY 
endif 
endx f 

STXP STX 
STYP :« STY 
end 

<* aovif the stage to the desired frame *> 

do fine STFRAK 
local 

long POSX POSY 
real XMOV YMQV 




WO 84/01212 



-181- 



with INSP_DATA_8ASE 
STAGE_ERR TRUE 
FRAMX 

XMOV L FLOAT < XCOR > 
FRAKY 

YHOV :. LFLOAT ( YCOR ) 

VAFSTTR ( XMOV . YMOV > 
STX :« STXCOR ♦ OFFX «■ CORRX 
STY STYCOR ♦ OFFY + CORRY 

print STX , STY , STXCOR , STYCOR 

BLCORR 
MOVE ( STX , STY ) 
; POSREQ 
; POSX :» SPLX 
; POSY SPLY 

; if < ( POSX ( > STX ) AND < POSY <> STY ) > 
; STAG E_ ERR :» FALSE 
; ends* 
end 

<* The tt*g* moving function to b* eali«d from the Masttr *> 

defint STACEK 
local 

tnt«g«r SITE FRAK 
ATIFSOB 

STAC£_BUS? TRUE 



SITE :* DES_5ITE 
FRAM :. DE5_FRAME 
with DES.RET 

OIROV :* ROW 

COL CLMN 
print OIROV , COL 
with INSP_PLN 
with HEADER 

XPITCH :« DIE_X 
YP1TCH :* DIE_Y 
with LAYERS < DES_LAYER > 
with DTL_LAYER_REV ( *_REVS - 1 > 
wi th L_RETICLE 
with RETICLES IE 

with D_PATTERNS ( DES_FATTERN > 
with S^ORC ( SITE > 
FVX X 
FUY : ■ Y 
With F_ORG 

FRX :« X 
FRY :» Y 
with F^DESCR 
with F_S2 

FXSIZE :» X 
FYSIZE Y 
with F_OLAP 

OVLX :« X 
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OVLY :m Y 
with INSP_FR ( SITE ) 
with FRAMES < FRAM > 
FX INO :• ROW 
FYIND ;« CLMN 

STFRAM 
STAGE.BUSY ;« FALSE 
with CUR_RET ' 
ROW OIROV 
CLMN :» COL 
CUR_8ITE DES_SITE 
CUR_FRAKE :* DES_FRAHE 
DRECION 
•nd 

I* defines a correction to the coordinates due to the error in positioning *> 

def in* ERRCORR 
local 

long POSXi POSY1 FOSZ2 POSY 2 
CORRX :* 01 
CORRY :- OL 
STAC EM 
FOSREQ 

FOSX1 :» SFLX 
POSY1 :- SPLY 
print "Manually align the ftature" 
pause 



FOSREQ 

POSX2 :. SPLX 

POSY2 :» SPLY 

CORRX POSX2 - FOSXl 

CORRY :« POSY2 - POSYX 

end 

<* STACE CALIBRATION procedure *> 

integer CALFLC 

CALFLC on 

define IKITOFF 
ATIFSDB 

print "Manually define home, press 'DEFINE HOME ' button" 

print "Manually position origin of die <0,0> M 

print "Press COMP ON at the stage control panel" 

pause 

FOSREQ 

OFFX :» SPLX 
OFFY :« SPLY 
end 



define CALSTC 
local 
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long POSXl POSY1 
long D 01 
if ( CALFLC ) 

iNnorr 

print "Mov« to last die in X direction" 
print "Pros* COMP OK At stage control panel" 
pause 

POSREQ 

POSXl :- SPLX 

POSYi :m SPLY 
D POSXl - OFPX 
Dl :» POSYI - OFFY 

ALPHA :« LFLOAT ( D ) / SORT C LFLOAT < D ) • LFLOAT < D ) ♦ a 

tFLOAT < Dl ) * LFLOAT < Dl > > f 
B2TA LFLOAT C — Dl ) / SORT < LFLOAT ( D ) « LFLOAT < D > ♦ a 

LFLCAT < Dl > * LFLOAT < Dl ) ) 
print #F 12 6 . -alpha: " , ALPHA . "Dot*: H , BETA 
print OFFX , OFFY 
•ntfif 
end 

<* Switch the illumination according to the cuirmt and desired set in 
IPSDB *> 

define ILLSW 
AT I FSDB 

if ( CUR_ILLUM (> DES_ILLUH ) 



CUR_ILLUM :« DES_lLLUrt 

DREG ION 

ATIOPACE 

POKE ( 200K , CSR > ; switch tht illumination 
DELAY ( 3 ) 
POXE ( 0 , CSR ) ; make it stable. 

■j Note: no handshaking with the hardware 
DELAY < 60 > ; Wait to make sura switch happens before wo return 

endif 
DREGION 
end 



<« Switch the magnification according to the current and desired set in 
IPSDB *> 

define LENSV 
ATIPSDB 

if ( CVR_ttACNF O DES_MAGNF > 
CUR_MACNF DES_KACNF 
DREGION 
ATIOPACE 

POXE < 400K , CSR > ; switch the magnification 
DELAY ( 1 ) 

POKE < 0 , CSR > ; na ka it stable . 

; Note: no handshaking with the hardware 

endif 
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• 


cloor high byto 






sub 


rl , 


r2 






f 


got slops 






ts t 


z2 
















bp! 


11 








f 


so* it niqitivt 






nog 


r2 








f 


yos , aako positive 




15 : 


cap 
bgt 


r3 , 
it 


r2 






J 


si» it > th&n curant 


aa x 




ao v 


tl , 


r3 






i 


yos, storo now max 




U : 


dtc 
bno 


rO 
OS 
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mo v 
next 



r3 * (asp) 




. tnd 



<t 

DEFINE PEAK INTEGER 
LOCAL » 

INTEGER TEMPI 
PEAK OFF 
ITER 234. 

KVBYVD < OUTLN1 , I , OUTLN , 6 4 ) 

TEMPI OUTLN ( VMAX ( OUTLN , «4 ) ) - OUTLN < VMIN ( OUTLN , 64 ) ) 
PEAK :m PEAK ♦ TEMPI 
LOOP ( 64. > 

PEAK :• URSHIFT ( PEAK . 1 J 
END • ) 



SLPSCL :« l. 
SLPOFF := i. 
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COMPARISON BETWEEN REFERENCE AND EDGES 

( * l*fft*l*tttttlirttir«t*tlttt»f«<tr*ttttftt*ft*«tKVttMttlt«tttt«tltttKt«f 

MATCHT.MG - THIS MODULE LOADS ALL OF THE MODULES USED IN *' MATCH T ** 



tit 

est 

txt 
est 
axt 
act 
est 

• st 

• xt 
txt 



PDPID 
DM ISC 
MCHREC 
KCHCOM 
C 5 , 1 3 INS PL AN 
22BADDR 
CRAB IM 
MODELT 
OFLINE 
MDLMTCH 



Assaably langaaae aneunonics. 
Ml sc a 1 1 antooi utility routines. 
Region aapptng utilities lor MATCHT . 
Intertask coaauni cat i an utilities for KATCKT . 
Inspection Data Base record structure 
22 5it addrees suppport. 
Fraae grabber support. 
Model record structure. 

Routine to 'open* a line between twa paints. 
Matching and Iaage Registration routines. 



avslr ( "mateht 11 # proastr ) 
integer MCHCBF < 15. ) 



; Intertask coaauni cat ion buffer. 



integer STPFLAC 
integer TMPICH TMPOCH 



; Flag to indicate no coaauni ca t i on . 

; Temporaries for input and output cManneis. 



<* Start coaaunicat ion with the aaster task 

define CONNECT_2_M ASTER 
INITREC 



be-gxn 

RECEIVE I MCHCBF ) 
until t STPFLAC ) 
end 



<* Restart coaaun : ca.t i on with the aaster task. *) 

define RECONNECT 

SET * SYNC 2 ) 

beg tn 

RECEIVE ( MCHCBF ) 
until C STPFLAC ) 
end 



<* Stop coaauni ca t ion with aaster task and allow input frca a terminal. 

STOPCO ( 'TTn ) »> 
define STOPCO 

integer TERM 
TMPICH :« cich 
TMPOCH :« coch 
cich. : * open < TERM . 'rw* ) 
coch :« cich 

poke < 2 . fdb < oioh ) > 
at t era 
STPFLAC on 
end 
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<» Restart communication after * STOPCO has been executtd. 

deiini STRTCO 
* detterm 

clost < clch ) 
cich :« TMP1CH 
eoch TKPOCH 
t STPFLAC off 

RECONNECT 
•nd 

<* Initialisation routine for MATCHT. . •) 

define MATCHINIT 

with M_KODEL 
; ATTRC ( "MODEIR" . 160000k ) 
; with M_EDCE 

; ATTRC < "EDO IMG" , 1 40000k > 

CONNECT_2_MASTER 
end 

• restart :» base WATCH IN IT 
save VFJ1ATCKT 



parameter VCH 

parameter BAR 

parameter CSR 

parameter DBR 



long 



PHYADR 



172410k ; DMA word eount register. 

172412k ; Bus address register for DMA. 

172414k ; Control status rtgif tir . 

172414k ; Data buffer register. 

; Physioal (22-blt) address of the buffer. 



make 



•MRXTS rsicall bytewd ( 5 23, ) 



<» Delay function using Mark Time di rec t i v« . DELAY_T1ME is the number 

of seconds times 10. e.g. DEIAYJTIME « 10. is a delay. of 1 second. 
DELAY < DELAYJTIME ) *> 
define DELAY 

integer DEL 
MRKTJ ( 23. . DEL * & . I . 0 ) 
VAIT C 23. ) 
end 

(* Wait until DMA operation is complete. (Monitors BUSY bit.) *> 

define VBVS?Y 

while < peek ( CSR > AND 200k ) 

repeat 
end 



OMPI _ 

s#> wipo £J 
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<* Ritd * lin« from the (riai grabber. 

RDFCLN ( BUFFER , XO , XL , YO , YL ) • > 

deUn. RDFCLN 

integer BUFF ( 1 ) XO XL YO YL 

PHYADR :n 2 2 ADDR ( BUFF ) 

pok# ( 130000k ♦ XO - 1 . DBR ) 

poke t 1140001: ♦ YO , DBR ) 

poke ( -■ IL M , VCR ) 
; poke c — < XL * YL ) . VCR ) 

poke ( 1 sword ( PHYADR ) , BAR ) 

polct ( 0 , DBR ) 

pokt ( meword < PHYADR > ♦ 1 . CSR > 
■ nd 



<* Cot *n imege from th« frame grabber into & memory rtgion. *> 

dtfine CETIM 
local 

integer BUFFTR 
with M_KODEL 

ATTRG C -IOPACB" , 1 6 000 01c > 

poke ( 1000k , DBR > 

DELAY C 1 > 

pokt t 0 , DBR ) 
with M_EDC£ 

ATTRG ( "EDGIMG" , 140000k > 



VNDOFF off 

HAPV < VNDB ) ioerr 

iter 25<. 

REMAP < i ) drop 
BUFPTR VNDADR 
do 128. IS? . 
VBUS'Y 

RDFGLN < BUFPTR » 128 . , 256 . , I + j , 1 ) 
BUFPTR 23 4. 
loop 
loop < 32. ) 
VBVS*Y 
DRECXON 
with K.MODEt 
DREG ION 
end 



define COPY1M 
local 

integer EDCADR 
wi th H_M0DEL 

ATTRG ( "hTCKIM" . UOOOOk ) 

VNDOFF off 

KAPV C VNDB ) ioerr 
with H_EDCE 

AT7RC ( M EDG1MG- , 140000k ) 



OMPI 



• » > uu f 
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EDCADR VNDADR 
VNDOFF off 
MAPV ( VNDB > ioerr 
iter 236. 
with M_EDGE 

REMAP ( i ) drop 
with fl_MODEL 

REMAP < I ) drop 

mvwd* ( EDCADR . VNDADR . 4 0 96. ) 
loop ( 32. ) 
DREG I OK 
wj th M_EDGE 
DREG I ON 
tnd 



<* MODEL RECORD 



Typ* of point 



Code 



Right Anglo Cornir 
Endpo in t 



4!X !Y 
0!X 



where X is the orientation of tht point and Y is tho direction 
as follows: 
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»> 

parameter MAX_S_ENT :■ 20 ; Maximum t of permissible entities. 

p«ri&it»r tPOINTS :■ 25 ; Ktvlaqm • of points permitted within 

; in tntity. 



record FOINT_FfCC 

integer XI YI ; Coordinates of first corner point. 

integer CURTYFE ; Type of the lino bttwttn 1st md 2nd point. 

integer JJ YJ ; Coordinates of second point. 

integer NXTTYPE ; Type of the* neit line (between 2nd end 3rd) . 

dummy -3 
endrecord 

record ENTITY 

integer iPTS ; t of points. 

POINT_REC 21 ( iPOINTS ) ; See record POINTS, 

endrecord 



record FRAME_REC 

integer FRPtt ; Frame • . 

integer tENT ; t of entities. 

ENTITY EI ( MAX_*_£NT ) 

integer HZ 1 HX2 KYI KY2 ; Horircntai landmark points. 



integer VXl VX2 VYX VY2 

integer HX3 HX4 HY3 HY4 

integer VX3 VX4 VY3 VY4 
endrecord 



Vertical landmark points. 
Horizontal landmark points. 
Vertical landmark points. 



\* Store the current model under a given filename. 

STORE_M0DEL < " FILENAME ) 
define STORE_MOD£L 

integer NAME . 

local 

integer OUTCH 

OUTCH open < NAME 'wt > 

wrs ( OUTCH . FRAME . site FRAME_REC ) 

close ( OUTCK > 
end 
*> 



<* Load the current model from a previously stored tile. 

GET_MODEL < 'FILENAME ) *> 
define GET_MODEL 

integer NAME 

local 

integer INCH 
char PNAME ( 30. ) 
with M_MODEL 
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ATTRC ( "ttODELH" , 160000k ) 
plr ( FRAM£_REC > :« VNDADR 
avstr ( 'dm4:C5,33 , PNAME ) 
coneat ( PNAME . NAME ) 
INCH :* open < PNAME , 'r > 

rds ( INCH , VNDADR . ill* FRAME_REC ) drop 
close ( INCH > 
ORECIOK 
•nd 



long 
.sac 



CURPNT 



int«g«r LNTMP ( 0 ) 
.blkw A. 

.WORD ptr < LNTMP < 3 ) ) 



i Coordinates of the currtnt point. 



; Lino Ttaporir tee : 



LNTMP ( 0 
LNTMP ( 1 
LNTMP < 2 



LNTMP < 5 

LNTMP ( 6 

LNTMP < 7 

LNTMP ( 8 



LNTMP < 3 ) 
LNTMP ( 4 ) 



NPTS 

DMN 

DMJ 

YINC 

XINC 

YINC 

XINC 

FRAC 

ptr ( XINC ) 



Major Direction Length (Count) 
Change in minor direction. 
Change in major direction. 

Y increment if major, else 0. 
X increment if mjor, else 0. 

Y increment . 
X increment . 
accumulatid fraction 
Pointer to current increments. 



<* Set up the endpoints of the line and initialise the current 

point < CURPNT) . Initialise the LNTMP array. 
F1RSTPT < XI Yl X2 Y2 ) *> 

entry FIRSTPT 



SUBSTITUTE SHEET 
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SO V 


o Lftinr • r u 




Cot pointer to LNTMP array. 


aov 


(asp)* « t3 




Ctl Yl. 




mo v 


<asp)+ a r2 


; 


Cot Zl. 




sub 


(asp) , r3 


; 


Torm Yl - Y0. 




bg • 


OS 


■ 


I f nog* live: 




nog 


r3 


■ 


aeke it pos i t i vo. one 1 




ao v 


• -1 . rl 


; 


form — i os ineroaont. 




br 


IS 


; 


Else : 




mov 


• 1 rl 




fora 4-1 at ineroaont. 




aov 


zl , i (rO) 


i 


Store incroaent in LNTMP 


C 3 ) 


mov 


r 1 , 10. ( r 0 ) 




ond LNTMP ( 5 ) . 




moT 


(asp )♦ , e t p t r 


< CURPNT 


) Stort in 


CURY 


sub 


<asp) , r2 




Fora Zl - XQ . 




bge 


2S 


; 


If negative: 




nog 


r2 




aake it positive ond 




DOT 


• -1 . rl 




fora -J os ineroaont. 




br 


3* 




Else: 




aov 


* 1 . rl 




form 4-1 os ineroaent. 




aov 


rl , 8. <r0) 




Storo ineroaont in LNTMP 


< 4 ) 


aov 


rl , 12. (rO) 




and LNTMP ( 6 >. 




mov 


<asp)+ , 9 « ptr 


( CURPNT 


> ♦ 2 ; Storo in 


CVRX. 


cap 


r2 , r3 




Coaporo OX to OY. 




bit 


4* 




If DZ > DY: 




aov 


r3 . 2 <r0> 




Ploco DY in LNTMP < t ). 




aov 


r2 , r3 




Copy DX into r3. 







elr 


6 (rO) 


r 


Don't chongo Y on aajor^scale. 




br * 


5S 


f 


Else: 


41 : 


aov 


r2 s 2 <r0; 


! 


PUco DX in LNTMP C 1 ). 




elr 


a. <r0> 


i 


Don't chongo X on aajor scale. 


3S: 


aov 


r3 . 4 (rO) 


f 


Place aajor in LNTMP C 2 ) 




mov 


r3 , CrO) 


■ 


Initialise counter — LNTMP ( 0 > 




inc 


. <r0) 


i 


Include the ondpoints. 




nog 


r3 


f 


Form — < MAJOR / 2 ) 




osr 


r3 








mov 


r3 . 14. <r0) 


i 


Ploeo In LNTMP ( 7 ) (fraction). 




next 









. local 



<» Updoto the contents of CURPNT to point to the nest point in the line 

If there is o next point, TRUE is returned, else FALSE is returned. 

LOCICAL NXTPNT «> 
entry NXTPNT integer 

mov « LNTMP , rO ; Cot pointer to LNTMP array. 

doc CrO) ; Decroacnt counter. 

bne OS ; If no more points, 

elr -<asp) ; push a zero (false) 

br 2S ; *nd return. 



OS : 



# ptr ( CURPNT ) , r2 



Cot pointer to CURPNT . 




IT V Q<*/V14X4 



-193- 



no v 



16. CrO) i rl i Ctt pointer to {INC. 



*dd 2 (r0> , 1 A . <r0> ; Add minor changs to traction. 

bit .is ; n ovitfiow, 

fU b 4 (r0> , 24. <r0> ; Subtract oijor change from fraction 

4 dd t 4 , rl ; Point to major and minor increments 

1$ : 4 dd <rl>* , <r2> + ; Add proper X increment to CVRX. 

Add (rl) , <r2> i Add proper Y increment to CURY . 

mov # -1 . -<msp> ; Puih a -1 (true) 

2»: nest ; *nd return. 



.end 



<» Update the contents of CURPNT after moving a given number of point*. 

-I is returned if successful. If not successful, the number of 
successful increments before ending is returned. 
IVAL NXTPNTS < *_FOINTS > . *> 

define NXTPNTS Integer 
integer ePNTS 
NXTPNTS on 
iter tPNTS 

if (not NXTPNT > . 
NXTPNTS :« 1 
exit 

endlf 

loop 



end 
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m t tge r 


CORLEN 


CORWIO 






• 


long 


PKTINC 










* 


integer 


DZ1 


OYl 




DX2 


DY2 


I 


inttgar 


MDLEV 










i 


int tg«r 


TOTAL 


BEST 










integer 


RECX 


RECY 








i 


int eger 


XWIND 


YWIND 






t 


XVI ND : 


» 4 












WIND :■ 4 












long 


VMASK C 


0 ) 








t 


. b Ikw 


a 












. 1 ong 


wdl ong 


( 0 , 


1 


) 






. long 


wdlong 


( 0 . 


-1 


> 






. long 


wdl ong 


( 0 , 


-1 


) 






. long 


wd 1 ong 


c o , 


1 


> 






long 


KMASK < 


0 > 








i 


. bltw 


8 












. 1 ong 


wdlong 


< I s 


0 


) 






. long 


wd 1 ong 


I 1 , 


0 


) 






. I ong 


wdlong 


< -I . 


0 


> 






. long 


wdlong 


C -1 , 


0 


) 







Length end width of corner marking. 
Point incremtnt to add to CURPN7. 
Oeltes for b«st fit of line to mige 
Grey level to write for aodel points 
Totals for finding best fits. 
Registration error in X end Y. 
Registration window site in X end Y. 



; nesting valtits for vertical lints. 



Masking values for horizontal lines. 



MI) LEV 252. 
CORLEN :« 5 
CORWID :» 3 



; Males these points look like evens. 



.mac 

<* Add two longs es if they were two sets of two integers. 

LVAL LI* < LVAL1 , LVAL 2 > •> 
entry LI ♦ long 

add <msp>* 2 (msp> 

add (asp)+ t 2 (asp) 

next 



<* Subtract two longs as if they were two sets of two integers. 

LVAL LI- < LVALi , LVAL 2 ) «> 
entry LI- long 

sub <asp)+ , 2 (msp) 

sub (asp)* , 2 (asp) 

next 

. end 



<* Set the else of the registretion window. 

WINDOW C XSIZE , YSI2E ) »> 
define WINDOW 
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integer XV YW 
XVIND :■ XV 
WIND YV 
•nd 



<* Test the current lint to be ftrtical. 

LOGICAL :« VrRTlCAt 
define VERTICAL ifunc 

( lbs ( YJ - YI ) > abs < X<J - XI > > 
end 



(t FIX the) aodtX by adding in the* registration error. 

riXKDL ( REG_X . REC_Y > »> 
define FIXKDL 

integer REGX RECY 
iter tENT 

with EI ( i > 
iter tPTS 
with ZI ( i ) 

XI 4- REGX 
YI RECY 

loop 

loop 
end 



<* Test e model line for aatohes against the image. Place total number 

of matches in TOTAL. 

TESTLN ( XI YI X2 Y2 t.SKIPS ) *> 
define TESTLN 

integer XI YI tPTS 

long RECINC 
if < tPTS ) 

CURPNT :■ wdlong ( YI , XI ) 
i ter »PTS ♦ 1 

if < MRDPIX ( CURPNT ) ) 
inoreaent TOTAL 

end if . 

CURPNT LI* ( CURPNT , RECINC ) 

loop 
endif 
end 



<« Return the number of points to skip for a model line. 

IVAL :« CETPTS ( POINT_l , P01NT.2 ) «> 
define CETPTS integer 

integer PT1 PT2 
if ( PT2 > PT1 > 

CETPTS liait C < FT2 - FT1 ) / 1 0 . 1 . 10 > 

alee 



^^rT? iff? 



c:.:fi 
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GETPTS :- limit C < PT2 - PTl ) / 10 , -10 , -i ) 

• ndlf 
•nd 

<« Rtgiittr tht im*g« with tht aodtl. Fir th« model vh«n r«gi«tr*tion 

it eonpltt*. *) 
dtfin* REGISTER 
local 

inttgtr KltPTS VltPTS 
intogtr H2tPTS V2tPTS 
long HiPTINC ViPTINC 
long H2PTIKC V2PTINC 
with K_HODEL 

ATTRC l "MODELR" . 140000k ) 
with H_EDGE 
ATTRC ( "MTCHIM** , HOOOOfc ) 
BEST ott 

RECX off , 
RECY off 

KltPTS CETPTS C HXi , KX 2 ) 
H2IPTS :« CETPTS C HX3 . HZ4 ) 
VltPTS :» CETPTS < VYI , VY2 1 
V2IPTS :« CETPTS < VY3 , VY* ) 
HIPTINC :«■ wdlong ( 0 . H1#PTS ) 
H2FTINC « wdlong ( 0 , K2tFTS ) 
VIPTINC :« wdlong ( VltPTS . 0 > 
V2FTINC :* wdlong ( V2»PTS , 0 ) 



KltPTS 
H2«PTS 
VltPTS 
V2«PTS 



C HX2 - 

( KX4 - 

( VY2 - 

( VY« - 



HXI 
HX3 
VYI 
VY3 



KltPTS 
H2#PTS 
VltPTS 
V2tPTS 



do — XVIMD . XVIND 
* do — YWIND , YVIND 
TOTAL o££ 

TESTLN t HX1 ♦ j . HY1 
TESTLN ( KX3 ♦ i , KY3 
TESTLN < VXl 1 , VYI 
TESTLN ( VX3 ♦ i . VY3 
ii < TOTAL ) BEST ) 

BEST :* TOTAL 
RECX :« i 
RECY :• I 

• ndlf 

loop 
loop 

riXMDL ( RECX , RECY ) 
print RECX , RECY 
DREG I OK 
with M_MODEL 
DREG X OK 

ATTRC < "IPSDBR" ; VNDADR > 
ptr C 1PSDB_REC ) VNDADR 
with INSP_DATA_ BASE 
REG_X RECX 



KltPTS 
K2fPTS 
VltPTS 
V2tPTS 



HIPTINC > 

H2PTINC ) 

V1PTIKC > 

V2PTINC ) 
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REG_Y :« REGY 
DR EC I ON 
end 



?« Get the b«it match of i model line to in imago lino. Place results 

In the variables DX t , DY1 , DX2 « and DY2 . 

CETBEST ( XI , Yl ( Xl', YJ ) *> 
dot ine CETBEST 

integer XI Yl X2 Y2 

local 

integer tSKIPS 

tSKIPS limit < max ( abs ( 12 - 11 J , aba ( Y2 - Yl ) ) / 10 , 1 , 10 > 
BEST off 
do -1 1 

TOTAL off 

If ( VERTICAL > 

FIRSTPT f XI ♦ i , Yl . X2 ♦ 1 , Y2 > 

els* 

F1RSTPT ( XI « *Y1 ♦ i , X2 . Y2 ♦ i > 

tndif 
begin 

if ( MRDPIX < CURPNT ) ) increment TOTAL endif 
until ( NXTPNTS < ftSKIPS ) <) -1 ) 
if ( TOTAL > BEST ) 

BEST :* TOTAL 

if ( VERTICAL ) 



else 



endif 

end if 

loop 
end 



DXl i 
DX 2 1 
DYl off 
OY2 off 

DXl off 

DX2 off 
DY1 i 

OY2 :m i 



(» Look for pixels adjacent to the line to match to. If there are 

adjacent pixels, delete them from. the image. NO A3 J returns TRUE 
if no adjacent piiels were found; otherwise, it returns FALSE . 
LOGICAL :• NOADJ «> 

da fine NOADJ integer 
NOADJ on 

if ( MRDPIX < LX* < CURPNT , PNTINC ) ) ) ; >= TESTVAL ) 

MVRPIX ( LI+ < CURPNT . PNTINC ) , 0 ) 
NOADJ Off 

endif 

if ( MRDPIX ( LI- ( CURPNT , PNTINC ) ) ) i >= TESTVAL ) 



cUESTETUTu. 



_ OMFI N 
V.'Ii-O A* 
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KVRPIX ( LI- < CURPNT . PNTINC > . 0 > 
NO AD J off 

tnd if 
end 



<* Kask tht outsidt of a cormr. Tht art* aatfctd is CORVID « CORVID. *> 

dtfint QUTERKASK 
local 

long FIRSTPT TKPPNT 
FIRSTPT LI- ( CURPNT , VKASK < CURTYPE ) > 
lttt CORVID 

FIRSTPT :- LI- ( FIRSTPT . HKASK < CURTYPE ) ) 
TKPPNT :« FIRSTPT 
it or CORVID 

KVRPIX < TKPPNT , 0 ) 

TKPPNT :« LI- ( TKPPNT , VKASK ( CURTYPE ) ) 

loop 
loop 
tnd 



<* Katk a cornor using tht incrtmtnt tupplitd. 

CORHASK < PNTINC ) «> 
dtfint CORKASX 

long CUR INC 

local 



long TKPPNT 
TKPPNT :« CURPNT 
it or CORVID + I 

KVRPIX ( TKPPNT , 0 ) 

TKPPNT LI + C TKPPNT , CURING ) 

loop 

TKPPNT :«• CURPNT 
ittr CORVID 

TKPPNT :• LI- C TKPPNT , CVRINC ) 

KVRPIX ( TKPPNT , 0 ) 

loop 
tnd 



<* Katch a modtl lint to tht imagt. Alto pt r f era* corntr aatfcing. 

HATCHLN < XX . Yl , X2 . Y2 > «) 
defin* MATCH LN 

inttgtr XI Yi 12 Y2 

local 

long TKPPNT 

long NXTINC 
FIRSTPT < Xi YX 11 Y2 > 
if t VERTICAL ) 

PNTINC :» VKASK ( CURTYPE ) 

NXTINC :« VKASK ( "NXTTYPE ) 



tlst 



PNTINC HKASK < CURTYPE ) 



r-1 



i^^TITUTS SUEET 
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NXTINC :- HMASK < NXTTYPE > 

end if 
OUTERMASK 
ittr CORIEN 

CORKASK ( PNTINC ) 

If ( not NXTPNT ) rtturn tndif 

loop 

if ( LNTMP ( 0 ) > CORLEN ) 
begin 

it ( MRDPIX ( CURPNT > > ; >- TESTVAL ) 

KVRPIX < CURPKT . 0 > 

tlffl 

if ( NOAOJ > MVRPIX < CURPNT , MDLEV > .ndif 

tndlf 

NX TP NT drop 
until i X.NTMP < 0 > mm COR L EN > 
• ndif 
btgin 

CORMASX ( NXTINC > 
until < not NXTPNT ) 
tnd 



<* Executt the matching process for every lint in the model. '/ 

def tnt MATCH 
with M — MODEL 



ATTRC ( "MODELR" . 140000k > 
with M_EDGE 
ATTRC ( "MTCHIM" , 140000k ) 
Ittr tENT 

with EI I. 1 ) 

ittr »PTS - 1 
with 21 < i ) 

GETS EST ( XI Yl XJ YJ > 

MATCKLN < XI + DX1 , YI ♦ DYX , XJ ♦ DX2 , YJ ♦ DY2 ) 

loop 

loop 
DRECION 
with H_MGDEL 
DRECION 
tnd 



SUBST5TU7S SHEET 
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DEFECT ANALYSIS . 



DEFECT. MG - THIS MODULE LOADS ALL OF THE MODULES USED IN "DEFECT" 



• xt 


POP ID 


tit 


MIXLIB 


ext 


DMISC 


•xt 


DEFREG 


Sit 


DEFCOM 


ex t 


POINTS 


ext 


C3 . 1 J INSPLAN 


est 


CONFIRM 


in t eger 


DEFCBF < 13. > 


integer 


STPFLAC 


integer 


TKPICH TKPOCH 



Assenbly language mneuemon 1 cs . 
Mixed-mode arithmetic support. 
KiscilUnioui utilities. 
Region mapping utilities. 
Intertask comauni ca 1 1 on utilities. 
Analyeis of disagreement pixels. 
Inspection Data Ba.se record structure. 
Store defects or confirm repeating defects. 

DEFECT intertask communication buffer 
Flag to indicate stopped communication. 
Temporaries for input and output channels. 



<■ Start communication with the master task. •> 

define CONKECT_:_MASTER 

INITREC 

begin 

RECEIVE ( DEFCBF > 
until < STPFLAC > 
end 



<* Restart communication with the master task. *> 

define RECONNECT 

SET ( SYNC 2 ) 

begin 

RECEIVE ( DEFCBF > 
until ( STPFLAC ) 
end 



<* Stop communication, and allow input from a terminal. 

STOPCO ( •TTn ) «) 
define STOPCO 

integer TERM 
TMPICH cich 
TMPOCH coch 
cich :« open < TERM , ' rwa > 
coch :» cich 

poke ( 2 , fdb < cich > > 
a i t e rm 
STPFLAC on 
end 
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Restart communication aftor a STOPCO. •> 
dtfint STRTCO 

DETTERM 

c I os» ( c i ch ) 

clch :» TKPICK 

coch TJ1POCK 

STPFLAC off 

RECONNECT 
tnd 



<» Perform both disagreement analytic and dafect stongi /conf irmation. 

def ina DETECT 

BLOB 

STORE 
•nd 



<» Initialisation for DEFECT. *)' 

define DEFECT INIT 

CONNECT_2_MASTER 
and 

tovstr C 'defect , promstr > 
(restart :» bast DEFECTIN IT 



save VFDEFECT - 
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inttg.r BANDSIZE 
integtr VBLOB 
•BLOB :« 150. 
BANDS lit :- 25. 



; Site of "don't cirt" bind uound :mtgc . 
; Allowable number of blebs. 



integer X0 XL V0 YL 
XL :* 236. 
YL :- 256. 



; Image limits. 



rteord RASPT.REC 

integer PTCNT 

integer POINTS ( 256. > 
endrecord 



; 'Number of points found. 
; Point positions. 



RASPT_REC RASPTS 
w!th RASPTS 



record BLOB_-REC 

integer BLBIO 

integer BLBTOT 

long XBCOM 

long YBCOK 

integer HINXO 

integer KINYO 

endrecord 



flAXXl 
KAXYl 



ID cf this blob. 

Total points. 

X cinttr of aiss totals. 

Y center of miss totals. 

Minimum and Maximum X vilaes. 

Minimum and Maximum Y values. 



rteord FINALJREC 

inttgsr CURL INC ; 

integer CURBLOB ; 

integer CVRPT ; 

integer NXTBLE ; 

inttgsr FREEBLOSS ( *BLOB 

intsgsr BLOBMAP < < sBLOB 

BLOB_REC BLOBS ( 4BL0B ) 
endr ftcord 



Y lint numbtr . 

10 of blob that now point i* addsd to. 
X position of currtnt point. 
Pointir to ths frso blob stack ID. 
> 

♦ 15 ) / 16 ) 



FINAL_REC FINAL 
with PINAL 



(« Record for accessing ths image lines with the mapped region, 

record LINES_REC 

char TOP ( 256. ) 

char CEN ( 256. ) 

char 80T ( 256 . ) 
endr tcord 



<* Convert a raster line into point encoded data. 

RASZPT ( INPUT_BUFFER , OUTPUT_BUFFER . LENGTH ) 
entry RAS2PT 
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mov Cmsp>+ , xO i Count -> 1 0 . 

mov (msp>+ , rl ; Output buffer pointtr -> rX. 

mov (msp) , rZ I Input buffer pointer -> r2. 

cir <msp> ; Clear temporary point counter. 

nov rl , -(rp) ; Store output pointer on rp stack. 

clr r3 ; Clear pixel counttr. 

tst (rl>* i Sump pointer to output buffer. 
OS- tstb • <r2>* ' » Test the point. 

beq 'IS ; If it if not zero: 

; bttb # 1 , -(r2> ; Cow order bit is 0 if even, 1 if odd. 

; bne 2$ ; If even: 

nov r3 , (rl)* ; Copy pixel number into POINTS array. 

znc (msp) ; Increment point counter. 

; 21: clrb (r2> + ; Zero the image point. 

1<: inc 1 2 ; Incrtment pixel counter. 

dec r0 ; Otermfnt count. 

bne 0* ; loop back. 

mov (rp)* , rl ; Restore output buffer pointer, 

mov (rasp)* , Cri> ; Store point count in PTCNT. 
nex t 



Set all points that are at VAL2 to VALl in the vector. 



VECSET < BUFFER 
entry VECSET 



mov 
mov 



Cms p > ♦ 
(msp ) + 



. VALl 

rO 

rl 



VAX. 2 



LENGTH ) 



Count in r 0 . 
Test value in r l . 





mov 


(msp>+ 9 r2 


, Value to set in r2. 




mov 


(mspU . r3 


, Buffer pointer in r3. 




add 


rO , r3 


; Point r3 to end of buffer 


9S: 


* crapb 


•(r3) , ri 


; Compare point to VAL2 . 




bne 


0$ 


If equal : 




movb 


r2 , (r3) 


set to VALl. 


as : 


dec 


rO J 


Decrement count . 




bne 


9S 


Loop back. 




next 







<« Returns the first value of three that is non-xero, or xero if all xero. 

IVAL 3 MAX C VALl . VAL2 . VAL3 ) ■> 

entry 3 MAX integer 



mov 


(msp)+ . rl 


; VAL3 in rl . 


mov 


<asp)+ * rO 


; VAL2 in rO. 


tst 


(msp > 


; Test VALl 


bne 


3S 


i it non-iero, return 


tst 


rO 


, Else test VAL2. 


bno 


4S 


; If xer o : 


mov 


rl , (msp; 


return VAL3. 


br 


3S 


Else : 


mov 


rO , (msp) 4 


return VAL2 . 


nex t 






Add a 


point to a blob. 





OMPI_ 

^ vivo 
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tntry ADDBLOE 

aov 8 t ptr ( BLOB_REC ) , rO 

mov & • ptr < FINAL_REC ) . ri 

; CURBLOB :* BLEID 

mev So BLBID CrO) , to CURBIOB Crl) 

; BOT < CURPT ) :* CURBLOB 

mov to CURPT (rl> , r2 

aov tf » ptr ( LINES_REC ) , r3 

idd t2 . r3 

aovb to CURBLOB <rl> So BOT <rJ) 
incraratnt BLBTOT 

inc So BLBTOT <r0) 

; MAXYl :» CURLINE 

aov So CURLINE <rl) , so MAXY 1 < r 0> 

; XBCOM :» liadd ( XBCOM , CURPT ) 

*dd r2 , < So XBCOM ♦ % ) CrO) 

adc So XBCOM <r0> 

; YBCOM :• liadd C YBCOM 4 CURLINE ) 

add So CURLINE <rl) . ( So YBCOM ♦ 2 ) (rO) 

ado So YBCOM (rO) 

. end 



Blob rtcords ar« assxgnad out of a pool of uiiU&U space 
FREEBLOBS- is a stack, with pointtr NXTBLOB, and, for radendancy. 



ELOBMAP ii a bitmap of us«d blob records. *> 
defino CETBLOB intsger 

if ( NXTBLS ««0 > print "OUT OF BLOBS" andif 
GETBLOE :« FREEBLOBS < NXTBLB ) 
sa-tbit ( CETBLOB HLOBMAP ) 

avsir < BLOBS < CETBLOB > , lixiw BLOB_REC ) 
d»crotaont NXTBLB 
and 



<» Raturn a blob to th« stack of fret blobs. 

RETBLOB < BLOB_ID ) t 
da fin* RETBLOB ~* 
int«9«r ARG1 
incr»Btnt NXTBLB 
FREEBLOBS i NXTBLB ) ARCl 
clrbit ( ARC! BLOBMAP ) 
and 



<* Start a n«w blob. *) 

dafine NEVBLOB 
local 

intager TEMPI 

TEMPI :« CETBLOB ; Cat a n«w blob rscorb 

with BLOBS ( TEMPI > 

BLBID :« TEMPI ; Sttop THIS ID 
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MINXO CURPT 
MAXXl CURPT 
MINYO CURL INE 
ADDBLOB 

• nd 



<* Merge two blobs into one blob. *> 

define MERCEBLOH 
local 

int«g«r TMPTOT 
long TMPXCOM TMPYCOM 
integer TMPXO TMPX1 . 
integer TMPYO TMPYI 
if ( BLBID mm CURBLOB ) i Ring situation 

riturn 

tndif 

TMPTOT :« aas ( CURBLOB BLBID > 

CURBLOB :« ain ( CURE LOB B LB ID > ; Mirge into lower blob ID 

print fa aseli . , ts 

VECSET ( TOP . CURBLOB . TMPTOT , 2S©\ > 
VECSET < CEN , CURBLOB , TMPTOT , 2 5 4. ) 
VECSET < EOT , CURBLOB . TMPTOT , CURPT ♦ I ) 

with BLOBS < TMPTOT ) ; Save dying blob info in TEMP 

Dvwds < ptr < BLBTOT ) , ptr < TMPTOT ) , 9 ) 
RETBLOB ( BLBID ) 

with BLOBS ( CURBLOB 3 



BLBTOT ♦ * TMPTOT 

XBCOM ♦« TMPXCOM 

YBCOM TMPYCOM 

MINXO :» aln ( MINXO , TMPXO > 

MAXX1 mix t MAXX1 .,' TKFX1 > 

MINYO :« ain ( MINYO , TMPYO ) 

KAXY1 m«i < MAXY1 , TMPYJ ) 

• nd 



<* Tost the two points above the current point for a value. 

Rtturns TRUE if either has a value. ■) 
define UPTEST integer 

VPTEST nil < CEN ( CURPT ) , TOP < .CURPT ) ) 
if < UPTEST ) 

with BLOBS < VPTEST ) , 
ADDBLOB 

end if 
end 



<* Test 2 points to the left in each of three rows for a value, 

defint LEFTTEST 
local 

Integer BLID 

do 1 2 

EL ID 3MAX < EOT ( CURPT - i ) CEN ( CURPT - i ) TOP ( CURPT - 
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tf ( BL 10 > axit andif 

. loop 
if ( SLID > 

With BLOBS ( B L ZD > 

MAXX1 :» max t KAXX1 . CURPT ) 
ADDBLOB 



<* Tast 2 points to tha right in itch o£ two tows for a vilm 

♦ dafin* RICHTEST 
looal 

inttgar BL ID 

do i 2 

BLID :» max ( CEN C CURPT ♦ 1 ) , TOP < CURPT ♦ i ) ) 
if ( SLID ) exit andif 

1 oop 

if ( SLID ) 

with BLOBS t SLID ) 

if ( CURB LOB )0 ) 
MERCEBLOB 

tU« 

KINXO :« min ( MINXO , CURPT > 
ADDBLOB 

•ndif 

and if 



end 



C« Convert from point tncodtd format to blob format. *: 

dtfino PT2BLOB 
looal 

intagar TEMPI 

ineramant CURL INE ; Cot naxt rastar line 

ittr PTCOT ; Do for aach point found in this rastar line 

CURPT :- POINTS ( i ) ; Sot up currant point. 

CURBLOB on ; No currant blob at start, 

if (not UPTEST ) 
LETTTEST 
RICHTEST 
and if 

if ( CURBLOE <0 > NEVBLOB andif ; Now blob found 
loop 
and 



<* Sat up the disagr ttmcnt analysis. ») 

dafin* IKITBLOB 

mvxar ( FINAL . straw FINAL-REC J 

N3CTBL8 off 

CURLINE :« BANDS I ZE - 1 
do 1 . * B LOB - 1 
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RETBLOB ( i' ) i Put *H the blob-recs on the staefc 

loop 

VNDOFF -ft 
MAPV ' VKDfi ) 

ptr ( 11 NES_REC > :* VNDADR 
mvxor < TOP , BAMDSI 2E * 120. > 
ptr < LINES_REC ) ♦ « BANDSIZE * 256. - 768. 
end 



(w Eiecute the analysis for a flivin nuabir or iln«s. 

DOHNES < f_LJNES > *> 
define DOL1NES 

integer ttlNES 

local 

integer VBNDSZ LASTPT 
VBNDSZ :« 2/ ( BANDS I ZE ) 
LASTPT :» 256. - BANDS I ZE 
ittr ILINES 

ptr < LINE5_REC ) 256. 

Bvtir ( BOT , VBNDSZ > 

Kvsir ( BOT ♦ LASTPT , VBNDSZ > 

RAS2FT ( BOT RASFTS LASTPT ) 

PT2BLOB 

if { NXT8LB < 10 ) BEEP print "TOO MANY BLOBS" ii exit endix 

loop 
end 



<* Perform the entire disagreement analysis. *) 

define BLOB 
with !1_EDGE 
ATTRG C M MTCHIK M , 160000k ) 
INITBLOB 

DOL1NES < Z4. - BANDSIZE ) 
do 64. . 832. 

VNDOFF :» I 

KAFV C VNDE ) 

ptr < HNES_REC ) :» VNDADR ♦ 1280. 

D0L1NE5.< 16. ) 
Ioop.( 64. ) 
VNDOrF :- 896. 
rtAPV ( VNDB ) 

ptr < L1NES_ REC ) :« VNDADR ♦ 1280. 
DOLINES < 24. - BANDS I ZE > 
nviir ( BOT . BANDS I ZE * 128. > 
DREGION * 
• nd 

endf i ie 

<* CALCULATE THE CENTER OF MASS OF A BLOB . 

THE UN-NORMALIZED TOTALS ARE IN XBCOM AND YBCOM 
X.V BLBC0M ( BLOB- ID ) *> 
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deflne BLBCOM long 

integer ARC l 
wi th BLOBS C ARG1 ) 
BLBCOM :* wdlong < lidiv ( XBCOM , BLBTOT ) . iidiv < VBCOK , BLBTOT ) ) 

tnd 



integer TOO MA NY 
integer COMTHRESH 
integer TOTTHRESH 



COMTHRESH 
DELTHRESH 
TOTTHRESH 
FLTTHRESH 



; Flag to indicit* too many defects. 
DELTHRESH ; Repsating defect threshholds. 

FLTTHRESH ; Valid defect threshholds. 

; COM's may be within COMTHRESH pixels 

i DEL * s my be within DELTHRESH pixels. 

; Must have it least TOTTHRESH pirtls. 

; DELX end DELY at least FLTTHRESH * 1 pixcli 



defects In the defect buffer, (Primary mode) 



<» Stort tht 

defin* STOREDEFS 
t_DFCTS off 
iter SBLOB 

if ( getbit C i , BLOBMAP > > 
with BLOBS C 1 1 

if < BLBTOT )- TOTTHRESH ) 

if < KAXX1 - MINXO >« FLTTHRESH ) 
if ( MAX Yl - MINYO >- FLTTHRESH 
with DEFECTS < t_DFCTS ) 



» > 



> 



XCOM :» lidiv ( XBCOM , BLBTOT ) - REG_X 

YCOM Iidiv C YBCOM , BLBTOT ) - REC^Y 

DELX :- 2/ C MAXX1 - MIKXO ♦ 1 > 

DELY :» 2/ ( MAXY1 - MINYO ♦ 1 ) 

incn&tnt e_DFCTS 

If C t_DFCTS »• MAX^ .DEFECT ) 

BEEP print -TOO MANY DEFECTS M 
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tut 



endif 
antfif 
endif 
• ndi£ 
endif 
loop 
end 



<» Add a defect to the defect buffer, given a pointer to the DEFECT 

record to be addtd. 

ADD_OEFECT < DEFECT_PO INTER ) »> 
define ADD_DEFECT 

addrees DEFPTR 
with F_DEFCTS ( Ct/R_FRAM£ ) 

ovwdf ( DEFFTR . DEFECTS C #_DFCTS ) , size DEFECT ) 
increment e_DFCTS 

it ( #_DFCTS MAX_DEFECT > TOOKANY on endif 



Check every defect found against the previous defects to Jocatt 
repeating defects. (Confirm mode) *) 
define CHECKREPT 
local 

DEFECT^ EUFFER PRIK_DEFS 



integer TXCOM TYCOK 
integer TDELX TDELY 
nvwds < F_D£FCTS < CUR_FRAME > , PRIM.DEFS , si sew DEFECT_BUFFER ) 
TO OMAN Y oTf 
«_DFCTS off 
with PRIM_DEFS 
iter iBLOB 

if < getbit ( i , SLOBttAF ) } 
with BLOBS ( i ) 

if < BLBTOT )» TOTTHRESH ) 

if ( MAXXl - MINXO >« FLTTHRESH ) 
if ( MAX Yl - MINYO >« FLTTHRESH ) 

TXCOM :* itdiv ( XBCOM , BLBTOT ) - REC_X 
TYCOM :» lidlv t YECOM , BLBTOT > - RFC_Y 
TDELX :« 2/ < MAXX1 - MINXO 4 1 ) 
TDELY :« 2/ ( MAXY1 - MINYO * 1 > 
iter »__DFCTS 
with PR I M_DEFS 
with DEFECTS ( L > 

if ( abs ( XCOM - TXCOM ) <« COMTKRESH ) 
if ( abs ( YCOM - TYCOM ) <» COMTHRESH > 
if ( abs ( DELX - TDELX ) <- DELTKRESK > 
if ( abs < DELY - TDELY ) <« DELTKRESK ) 
ADD_DEFECT C DEFECTS < i > ) 
exit 
endif 
endif 



su 



JZ3TITUTE SHEET 
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•ndif 
• ndif 

loop 

if t TOOKANY ) 

BEEP print -TOO MANY DEFECTS" 
«xst 

•ndif 
•ndif 
•ndif 
tndif 
•ndif 
loop 

•nd 



* * Store tht defects found, wh*thcr primary of confirm »odt. *> 

d»fin« STORE 
with K.EDGE 

ATTRG < "IPSDBR" . 140 0 00k ) 
ptr C IPSDE_REC ) :* VNOADR 
wi th IN5P_DATA_BASE 
With 1NSP_PLN 
with LAYERS i MOD_LAYER ) 
with DTt^L A Y ER_R E V ( #_REVS - I ) 
with L^RETrCLE ~ 
wi th RETI CLE_D I E 
with D_PATTERNS < MOD_PATTERN ) 



with INSP_FR i MOD_SJTE > 
with F_DEFCTS < MOD_FRAHE ) 
if < I -MODE »« PR I MARY > 
STOREDEFS 

• is* 

CHECKREPT 

• ndif 
DRECIOK 

•nd 
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What is claimed is: : 

1. Apparatus for the automatic inspection of 
a semiconductor wafer surface comprising 

means for illuminating the wafer surface, 
scanning means for forming in a storage 
5 array a representation of the spatial distribution of 

; ; illumination energy intensity reflected from the 

surface, 

edge analysis means for automatically 
analyzing the reflected energy spatial distribution 
10 represented in said array for determining edge 

boundaries occurring on said wafer surface, 

reference means for providing a reference 
pattern description of said wafer surface, 

comparison means for comparing the edge 
15 boundaries determined by said analysis means with said 

reference pattern description for determining the 
location of boundary disagreements between the analysis 
means edge boundaries and the reference pattern 
description, and 

20 means for generating an information output 

describing said boundary disagreements. 

2. The apparatus of claim 1 wherein said 
illumination means comprises 

dark field illumination means for 
25 illuminating said wafer surface with dark field 

illumination, 

3. The apparatus of claim 2 wherein said 
* scanning means comprises 

a sensor array having a plurality of 
30 photoresponsive elements arranged in a linear pattern, 

each said element being responsive to illumination 
incident thereon, 
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means for mounting said linear sensor 
array for receiving energy reflected from said wafer 
surface, 

means for focusing said reflected 
illuminated surface onto said sensor array elements , 

means for reading from said sensor array 
and for storing data in said storage array corresponding 
to said spatial distribution representation* 

4. The apparatus of claim 1 wherein said edge 
analysis means comprises 

means responsive to said scanning means 
for generating a second spatial distribution 
representing local differences of the reflected 
illumination intensity across said wafer surface , 

means responsive to said second spatial 
distribution for locating potential edge boundaries in 
said second spatial distribution, 

means for storing said located potential 
edge boundaries when said potential boundaries have a 
strength which exceeds an edge threshold level , and 

means for spatially filtering said located 
and stored edge boundaries for forming more continuous 
edge boundary patterns. 

5. The apparatus of claim 4 wherein said 
storing means and said storage array are the same memory 
element. 

6. The apparatus of claim 4 wherein 

said illumination means comprises a dark 
field illumination means for illuminating said wafer 
surface with an oblique illumination from all 
directions, and 
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said generating means further comprises 
means for spatially smoothing said 

first spatial distribution, 

means for convolving said first 
spatial distribution along a first axis separately with 
a peak detecting spatial function and a step detecting 
spatial function, 

means for convolving said first 
spatial distribution along a second axis orthogonal to 
said first axis separately with said peak detecting and 
said step detecting functions, and 

means for generating from said 

orthogonal covolvutions said second spatial 
distribution. 

7. The apparatus of claim 1 wherein said 

reference means comprises 

a data reference source describing a wafer 

surface pattern, and 

means for generating from said data source 
a data list of reference edge boundaries on said wafer 
surface. 

8. The apparatus of claim 7 wherein said data 

source further comprises 

an activity data source for identifying 
the spatial extent of active areas on said semiconductor 
wafer. 

9. The apparatus of claim 7 wherein said 
reference means further comprises 

means for identifying activity volumes on said 
semiconductor wherein a defect will adversely affect 
op ration of a circuit associated at least in part with 
said volume. 



OMPI 
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10. Th apparatus of claim 1 wherein said 
comparison means comprises 

means for locating corresponding edg 
boundaries of said reference pattern description and 
said analysis means edge boundaries for effecting 
alignment of the reference and the analysis edge 
boundaries , 

means for identifying non-corresponding 
edge boundaries of said reference pattern and said 
analysis means edge boundaries, and 

disagreement means responsive to said 
identifying means for analyzing said identified 
non-corresponding edge boundaries for determining 
boundary disagreements on said wafer surface. 

11. The apparatus of claim 10 wherein said 
disagreement means further comprises 

means for classifying said boundary 
disagreements into a plurality of boundary disagreement 
classes. 

12. The apparatus of claim 11 wherein one of 
said classes is a class of killer defects. 

13. The apparatus of claim 10 wherein said 
identifying means further comprises 

means for locating corner edge 
intersections in said reference pattern r and 

means for providing a disagreement 
tolerance at said corner edge intersections for 
maintaining a correspondence between a squared reference 
corner and a rounded wafer corner. 

14. The apparatus of claim 1 wherein said 
g nerating means comprises 
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means for selecting a boundary 
disagreement , and 

means for repositioning said wafer 
surface for visual inspection of said wafer surface at 
said selected boundary disagreement. 

15. The apparatus of claim 1 further wherein 
said wafer surface has a repeating reticle pattern 
thereon and said apparatus further comprises 

means for automatically comparing 
boundary disagreements for at least two of said patterns 
to determine the presence of a repeating boundary 
disagreement, and 

means responsive to a said repeating 
disagreement for classifying said repeating disagreement 
boundary as a reticle defect. 

16. A method for the automatic inspection of 
a semiconductor wafer surface comprising the steps of 

illuminating. the wafer surface, 
forming in a storage array a 
representation of the spatial distribution of 
illumination energy reflected from the surface, 

automatically analyzing the reflected 
energy spatial distribution represented in the array for 
determining edge boundaries occurring on the wafer 
surface, 

providing a reference pattern description 

of the wafer surface, 

comparing the edge boundaries determined 

during said analyzing step with the reference pattern 
description and determining the location of boundary 
disagreements between the reference pattern description 
and the edge boundaries detected during the analyzing 



WO 84/01212 



PCT/US82/01277 



-216- 

step, and 

generating an information output 
describing the boundary disagreements. 

17. The method of claim 16 wherein said 
illuminating step comprises the step of illuminating 
s-aid wafer surface with a dark field illumination for 
highlighting edge boundaries on said surface. 

18. The method of claim 17 wherein said 
forming step comprises the steps of 

mounting a linear sensor array element 
for receiving a said reflected energy from the wafer 
surface/ 

providing the array element with a 
plurality of photosensitive elements arranged in a 
linear pattern, each element being responsive to the 
illumination incident thereon, 

focusing the reflected illuminated 
surface onto the array element, and 

reading and storing signal values from 
said array element in said storage array, said signal 
values corresponding to said reflected energy spatial 
distribution. 

19. The method of claim 16 wherein said 
analyzing step comprises the steps of 

generating a second spatial distribution 
representing local differences of the reflected 
illumination across the illuminated wafer surface, 

locating potential edge boundaries in 
said second spatial distribution depending upon said 

local differences, 

storing the located potential edge 
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boundaries when a said boundary has a str ngth value 
which exceeds an edge threshold level/ and 

spatially filtering the located and 
stored edge boundaries for forming a more continuous 
edge boundary pattern. 

20. The method, of claim 19 further comprising 
the steps of 

illuminating said wafer surface with a 
dark field illumination for highlighting edge boundaries 
on said surface/ and 

said generating step further comprises 

the steps of 

spatially smoothing said first spatial distribution, 

convolving said first spatial 
distribution along a first axis separately with a peak 
detecting spatial function and a step detecting spatial 
function, 

convolving said first spatial 
distribution along a second axis orthogonal to said 
first axis separately with said peak detecting and step 
detecting functions, and 

generating from said orthogonal 
convolutions said second spatial distribution. 

21. The method of claim 16 further comprising 
the steps of 

providing a data source for describing an 
expected wafer surface pattern, and 

generating from the data source a list of 
reference edge boundaries properly expected to exist on 
said wafer surface. 

22. The method of claim 21 wherein the 
providing step further comprises the step of identifying 
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the extent of active semiconductor areas on the 
semiconductor wafer. 

23. The method of claim 21 wherein said 
providing step further comprises the step of identifying 
activity volumes of said semiconductor wherein a defect 
will adversely affect operation of a circuit associated 
at least in part with a said volume. 

24. The method of claim 16 wherein the 
comparing step further comprises the steps of 

locating corresponding edge boundaries of 
the reference pattern descirption and the analyzed edge 
boundaries on the wafer for providing effective 
alignment between the reference and analysis edge 
boundaries , 

identifying non-corresponding edge 
boundaries of the reference pattern and the analysis 
edge boundaries/ and 

analyzing, in response to the identifying 
step, the identified non-corresponding edge boundaries 
for determining boundary disagreements on the wafer 
surface. 

25. The method of claim 24 wherein the 
comparison step further comprises 

classifying the boundary disagreements 
into a plurality of boundary disagreement classes. 

26. The method of claim 25 wherein one of the 
classes is a class of killer defects. 

27. The apparatus of claim 22 wherein the identifying 
step comprises the steps of 



locating corner dge intersections in the 

reference pattern r and 

providing a greater disagreement tolerance at the 
corner edge intersection before identifying a corner edge as a 
non-corresponding edge. 

28. The method of claim 16 wherein said generating 
step comprises the steps of 

selecting a boundary disagreerant , and 
repositioning the wafer surface for visual 

inspection of the wafer surface at the selected boundary 

disagreement. 

29. The method of claim 16 wherein the wafer surface 
has a repeating reticle pattern thereon and the method further 
comprising the steps of 

automatically comparing boundary disagreements for 
at least two repeating patterns to determine the presence of a 
repeating boundary disagreement, and 

classifying any repeating boundary disagreement as 

a reticle defect. 
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